Microsoft 365 inputbox à trois conditions

[pascal21]

Sub mdp()
mdp = InputBox("Accès réservé à l'administrateur")
While mdp <> "mdp"
mdp = InputBox("Bien essayé!! mais c'est pas le mot de passe administrateur :)  Pascal")
Wend

Unload USorties

End Sub

bonjour à tous.
ce code permet d'interdire la fermeture de l'userform ''USorties'' sans avoir le mot de passe administrateur
l'userform est en plein écran donc aucune autre commande ni feuille ne sont accessibles
mais je viens de m'apercevoir que si une personne qui ne connait pas le mot de passe, ça restera bloqué. (tourne en bloucle)
donc comment faire pour mettre une 3eme condition qui fermerait l'impubox si pas le bon MDP?
merci
edit: finalement, j'ai trouvé avec une solution donnée par pierrot93 que j'ai adapté

 

[Dranreb]

Bonjour.
Je propose ça :

Sub MdP()
MP = InputBox("Accès réservé à l'administrateur")
If MP = "" Then Exit Sub
While MP <> "mdp"
   If MP = "" Then Unload Me: Exit Sub
   MP = InputBox("Bien essayé!! mais c'est pas le mot de passe administrateur :)  Pascal")
   Wend


Unload Me
End Sub

 

[pascal21]

Bonjour.
Je propose ça :

MdP = InputBox("Accès réservé à l'administrateur")
While MdP <> "mdp"
   If MdP = "" Then Unload Me: Exit Sub
   MdP = InputBox("Bien essayé!! mais c'est pas le mot de passe administrateur :)  Pascal")
   Wend

merci cette solution est beaucoup plus simple au final

 

[Dranreb]

While est une instruction analogue à Do, pas une fonction, et Wend aussi, qui ferme le bloc, comme Loop.