XL 2010 VBA - Verrouiller feuille active avec mot de passe lors de l'enregistrement

[Titi456]

Bonjour,

Je souhaiterais pouvoir verrouiller uniquement la feuille active avec un mot de passe spécifique lorsque je clique sur Enregistrer (Ctrl+S).

Et si possible je souhaiterais également déverrouiller la feuille active avec le même mot de passe spécifique lorsque je clique sur la touche "Insert" de mon clavier.

Le mot de passe en question est un point "."

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

 

[danielco]

Bonjour,
Mets ce code dans le module ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
  ActiveSheet.Protect "."
End Sub

Daniel

 

[Titi456]

Bonjour Daniel,

Pour le verrouillage c'est parfait. Auriez-vous une astuce pour le déverrouillage en cliquant sur "Insert"?

Meilleures salutations

 

[danielco]

Non, malheureusement. On peut le faire avec un double-clic sur une fcellule donnée.
Daniel

 

[Titi456]

Je vais me passer de cette fonctionnalité pour le déverrouillage.
Merci beaucoup pour votre aide.