Discussion :

[mimicor15]

Bonjour

Je veux ouvrir mon userform avec mot de passe.
Mon code fonctionne bien pour un seul mot de passe, je souhaite que 2 ou trois mots de passe différents puissent l'ouvrir avec le même bouton. Est ce possible?
Les 5 mots de passe différents sont dans la feuille "Mdp" range B1 à B5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim Mdp As String
 
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
 
If Mdp = Sheets("mdp").Range("b2").Value Then
    UserForm6.Show
 
  Else
    If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Mot de passe incorrect") = vbRetry Then GoTo recom
End If
 
End Sub

Merci

[joe.levrai]

Bonjour,

dans ton test en ligne 7, insère des blocs via l'opérateur logique OR pour chaque mot de passe possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Mdp = "toto" Or Mdp = "tata" Or ..... Then

Et si la liste des Mdp est sur une plage Excel, tu peux éviter cet empilement de OR qui devient galère s'il y a beaucoup de Mdp en vérifiant si le Mdp saisi existe dans la plage.
Là il y a plusieurs méthodes :

- faire un FIND sur la plage
- utiliser la fonction Match

exemple avec la fonction MATCH, où la liste des Mdp est en colonne 1 de la feuille "Feuil1"
à adapter bien sûr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim MaPlageDeMDP As Range
' j'utilise un Mdp écrit en dur dans le code ... à adapter
Const LEMOTDEPASSE As String = "Prenom NOM"
Set MaPlageDeMDP = Thisworkbook.Worksheets("Feuil1").UsedRange.Columns(1) ' par le nom de la feuille // on peut le faire par son CodeName
 
    ' si la fonction MATCH est en erreur = le Mdp n'existe pas
    If IsError(Application.Match(LEMOTDEPASSE, MaPlageDeMDP, 0)) Then
        MsgBox "Mdp faux"
    Else
        MsgBox "Mdp OK"
    End If
End Sub

[mimicor15]

Super merci fonctionne très bien avec la méthode or, et de plus ça me permet de sélectionner qui a des droits.

[joe.levrai]

Qu'entend-tu par "de plus ça me permet de sélectionner qui a des droits" ?

si les droits sont différents en fonction du mot de passe, alors un Select Case est plus pratique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Select Case Mdp
    Case "toto", "tata"
        Msgbox "Droits administrateur"
    Case "titi"
        Msgbox "Droits modification"
    Case "toutou"
        Msgbox "Droits lecture seule"
    Case Else
        Msgbox "Mdp erroné"
End Select