Macro mot de pass protection de feuille

[delirium]

Bonsoir à tous.

J'ai réaliser une macro avec l'enregistreur, qui me permet de désactiver la protection de ma feuille. Mas l'enregistreur ne tient pas compte du mot de pass (je suis obligé de le taper).

De même pour activer la protction.

Voici le code pour désactiver la protection :

Sub a()
ActiveSheet.Unprotect
End Sub


Et le code pour activer la protection :

Sub ab()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub


Mais comment faire pour que la macro entre elle même le mot de pass.

Merci

 

[michel]

bonjour Delirium

tu peux tester

Sub a()
ActiveSheet.Unprotect Password:="MonMotDePasse"
End Sub


Sub ab()
ActiveSheet.Protect Password:="MonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub


bonne journée
MichelXld

 

[delirum]

Merci michel pour ton aide et à +