Caractère s'écrit en double

Bonjour,

Petite incompréhension pour ôter ma protection de feuille. Je souhaite définir mon mdp de protection de feuille avec une constante donc par exemple :

Public Const MDP = "test"

Sub a()
ActiveSheet.Unprotect
End Sub

Sub b()
ActiveSheet.Protect Password:=MDP
End Sub

Je protège la feuille en lançant la macro b, je veux la retirer en lançant la a. Quand je veux écrire le mdp, les caractères se mettent en double. Donc ça donne "tteesstt".

Alors que si je passe par le bouton "ôter protection" dans le ruban, la pas de problème.

Une idée d'où vient mon problème ?

Merci !

Bonjour,

aucun souci sous Excel 2007 avec uniquement les sub a et b dans le classeur.

peut-être essayer :

ActiveSheet.Unprotect MDP

A+

Mais si j'indique MDP derrière, je n'ai plus à entrer le mot de passe

est ce que ça fonctionne ?

Oui cela fonctionne mais je n'ai plus la fenêtre qui s'ouvre pour entrer le code, elle se déverrouille directement.