Verrouiller certaines cellules à l'ouverture d'un classeur

[Gil_Se]

Bonjour.
Comment verrouiller le contenu de certaines cellules d'une feuille (Par exemple A6:AD6) à l'ouverture d'un classeur sans utiliser Options\Protection\Protéger...
Merci de votre aide.
Gilles

 

[Brigitte]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

Bonjour,

Peut être une petite macro qui le ferait à l'ouverture (ou à la fermeture), code à mettre dans this workbook, style :

Private Sub Workbook_Open()
' Macro enregistrée le 27/09/2009 par xxxx
'
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A6:AD6").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Je l'ai fait avec l'enregistreur de macros, il y a sans doute du code en trop... Et j'ai laissé tout ce qui était par défaut dans les possibilités offertes sous protection.

Il faudrait sans doute prévoir également un bouton pour déprotéger ?

 

[Gil_Se]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

Oui mais laquelle:
j'ai essayé avec
RANGE("A6:AD6).LOCKED
mais je ne sais pas ou mettre cette ligne dans VBA
Gilles

 

[Brigitte]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

Re,

Dans ton classeur, tu fais ALT/F11, ca ouvre l'éditeur VBE.

A gauche, tu vois ton classeur, tu vois THIS WORKBOOK, c'est là qu'il faut mettre la ligne de code précédée de :

Private Sub Workbook_Open()


Et terminée par

End Sub...

 

[Gil_Se]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

A l'ouverture, j'ai un message:
Erreur de compilation dans le module caché: This workbook

 

[Brigitte]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

Bonsoir,

Voici un petit exemple ci-joint. Ouvre le classeur, essaie de taper dans une des cellules jaunes. Puis cliquer sur le bouton Déprotéger. Réessaie de taper... Ca doit marcher. Puis ferme, réouvre, et refais l'essai de taper dans le jaune.

Pour voir la macro, ALT/F11, ton classeur, this workbook.

Et adapte. Est cela que tu veux ?

 

[Gil_Se]

Re : Verrouiller certaines cellules à l'ouverture d'un classeur

Merci déjà à tous.
Je vous joins mon fichier.
En A6:AD6 (Entete) une macro "TRI" se déclenche par un double clic.
Pour éviter des erreurs des utilisateurs, et pour une présentation plus sympa, je souhaitais que toutes les cellules verrouillées ne soient pas "selectionnables" sauf celles des Entetes(A6:AD6) pour que le double clic dessus fonctionne.
Ce fichier comporte déjà plusieurs macros évènementielles.
Gilles