Salut tout le monde,
 
voilà j'explique le truc, je voudrais protéger une boite de dialogue avec un mot de passe;
 
mais le pb, faudrait que cette boite de dialogue accépte plusieurs mots de passe!!!
 
du style: toto1, toto2, toto3...
 
est-ce que qlq'1 peut m'aider puique je ne sais pas le faire!!!!!!!!!!!
 
Merci d'avance

Salut
peut être un truc dans le genre ?
 
Dim MotDePasse As String,  
Dim Autorisation As Boolean
 
MotDePasse = ""
Autorisation = False
Do
MotDePasse = InputBox("Tapez votre mot de passe" ) : ", "Mot de passe utilisateur", "" )
    Select Case MotDePasse
      Case "toto1", "toto2", "toto3"
        Autorisation = True
    End Select
Loop While Autorisation = False
 
 
a+