Bonjour à tous. J'ai developpé une application java et j'aimerais la proteger par une licence qui doit être renouvellé chaque année. Comment je peux faire cela?
Merci d'avance.
Merci d'avance.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Feuil_Type_Fi As Worksheet
Dim Feuil_Active As Worksheet
Set Feuil_Active = ThisWorkbook.Sheets("Feuil")
'Déprotège la feuille
Feuil_Active.Unprotect
'On verrouille toutes les cellules
Feuil_Active.Cells.Locked = True
'On déverrouille les cellules auxquelles on veut pouvoir accéder
Feuil_Active.Cells(9, 5).Locked = False
Feuil_Active.Cells(26, 13).Locked = False
Feuil_Active.Cells(31, 13).Locked = False
Feuil_Active.Cells(32, 13).Locked = False
Feuil_Active.Cells(33, 13).Locked = False
Feuil_Active.Cells(34, 13).Locked = False
'On applique la protection sur la feuille
Feuil_Active.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False