Autres Protection/déprotection feuille

[PORCHER]

Bonjour,
Public Const vs_Pwd = "admin"
ActiveSheet.Protect Password:=vs_Pwd

Cette formule ne fonctionne pas pourquoi ?
J'ai Microsoft office 2007
Merci de trouver une solution à mon problème

 

[Wayki]

Bonjour,
Il faut inscrire votre code dans une procédure, par exemple pour un module classique :

Public Const vs_Pwd = "admin"
Sub protec()
ActiveSheet.Protect Password:=vs_Pwd
End Sub

A +

 

[PORCHER]

Merci effectivement j'ai fait une erreur
j'ai placer la première ligne dans une macro nommé Routimes
et la seconde ligne dans la feuille d'activation
ça fonctionne très bien
Merci