Macro mot de pass protection de feuille

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