Protection active à la fermeture du fichier

Bonjour @ tous

Je voulais protéger automatiquement une feuille lorsqu'on ferme le fichier ou que l'on quitte Excel.

J'ai utilisé cette macro mais ça fonctionne de façon aléatoire.

Private Sub Workbook_BeforeClose(Cancal As Boolean)

ActiveSheet (Feuil2)

ActiveSheet.Protect "123"

End Sub

J'ai du zapper un truc mais quoi ?!!!!!!!!!

Bonjour,

WorkSheets("base").Protect Password:="dudu"

ici, feuille "base" et mot de passe "dudu" (facultatif)

WorkSheets("base").Protect

sans mot de passe

Claude.

édit : n'oublie pas d'enregistrer avec

ActiveWorkbook.Save 

Pour ceux que ça peut intéresser voici le code à mettre dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancal As Boolean)

Worksheets("base").Protect Password:="dudu"

End Sub

Merci dubois

Cordialement @+