Userform & mot de passe

Userform & mot de passe - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2005 à 15:14:18    

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

Reply

Marsh Posté le 25-04-2005 à 15:14:18   

Reply

Marsh Posté le 15-03-2006 à 11:53:02    

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+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed