Pages

Affichage des articles dont le libellé est Verrouillage. Afficher tous les articles
Affichage des articles dont le libellé est Verrouillage. Afficher tous les articles

Verrouillage d'une application par une licence sujet

mardi 8 avril 2014




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.




Verrouillage de cellules sujet

jeudi 27 mars 2014




Bonjour à tous,

J'aimerais pouvoir verrouiller toutes les cellules d'une feuille à l'exception de quelques unes.
J'ai programmé quelque chose, mais il semblerait que cela ne fonctionne pas. Le message d'erreur suivant s'affiche : "Impossible de définir la propriété locked de la class Range".

Mon code est le suivant:


Code:


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


Est-ce que quelqu'un a une idée de l'erreur ? Le debugger se positionne sur la ligne " Feuil_Active.Cells(26, 13).Locked = False"

Merci d'avance pour votre aide !