Mot de passe USERFORM

[rem13]

Je voudrai ouvrir un userform avec mot de passe.
Mon code fonctionne bien pour un seul mot de passe, je souhaite plusieurs mot de passe différents puissent l'ouvrir avec le même bouton. Est ce possible?

Les mots de passe différents sont dans la feuille "Code" sont rangés de A2 a A200

Private Sub CommandButton1_Click()
Dim Mdp As String
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
If Mdp = Sheets("Code").Range("A1").Value Then
    UserForm2.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

Bonjour

Merci d'avance,

Cordialement,

 

[Fauna]

Bonjour,
J'ai le même problème, je vais essayer de tripatouller.

 

[M12]

Bonjour,
Il suffit de rajouter

Private Sub CommandButton1_Click()
Dim Mdp As String
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
If Mdp = Sheets("Code").Range("A1").Value _
    or Mdp = Sheets("Code").Range("A2").Value _
    or Mdp = Sheets("Code").Range("A3").Value Then
    UserForm2.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

 

[YAP32]

Bonjour,
Il suffit de rajouter

Private Sub CommandButton1_Click()
Dim Mdp As String
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
If Mdp = Sheets("Code").Range("A1").Value _
    or Mdp = Sheets("Code").Range("A2").Value _
    or Mdp = Sheets("Code").Range("A3").Value Then
    UserForm2.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

Bonjour M12,

Votre code fonctionne parfaitement sauf faut qu'il le demande à chaque fois le mot de passe pour utiliser le UserForm, je voulais savoir si est-il possible de l'appliquer par rapport à mon classeur qui s'ouvre avec "Authentification par mot de passe pour interdire accès à certaines feuilles" dont certaines pages ne sont pas autorisées tout dépends des droits attribués à l'utilisateur.

Le feuille est "Gestion des accès", la cellule "B3" sont les différentes utilisateurs via menu déroulant ( _utilisateur ) ici l'invité à droit uniquement à la page d'acceuil le cellule "B5" sont les mots de passe (_motPasse).

L'utilisateur connecté que ça soit l'invité (sans autorisation) ou un autre utilisateur (avec autorisation) une fois le MDP entré ils ont accès aux UserForm si c'est possible ne pas donner accès à l'invité les autres peuvent utiliser et est-ce qu'on peut interpréter un UserForm comme une feuille.

Je vous joins une images de ma feuille, la colonne (A) ce sont les pages de mon classeur pour avoir visuel.

En vous remerciant d'avance.

Bien cordialement,
YAP32

 

[youky(BJ)]

Bonjour tous,
Pour rem13
Voici un code nombre illimité de mdp
Bruno

Sub test()
Dim Mdp As String
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
If Mdp = "" Then Exit Sub
If IsNumeric(Application.Match(Mdp, Sheets("Code").Range("A:A"), 0)) Then
    UserForm2.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