Oter protection d'une feuille faite par macro

Bonjour,

J'ai mis en place une macro pour protéger une feuille Excel.
Le code :
Sub Macro1()
Range("A1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password = "azerty", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Le problème ? Si j'essaye manuellement d'oter la protection de la feuille en rentrant le mot de passe azerty, il me répond mot de passe invalide !

Plus grave ... Si j'ecris une macro pour libérer la feuille mais qui ne contient pas le bon mot de passe, ca ote la protection quand meme !
Sub Macro2()
ActiveSheet.Unprotect Password = "zerty"
End Sub

Avez vous une idée ? Merci d'avance