Mot de passe USERFORM

rem13

XLDnaute Nouveau
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


Code:
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,
 

M12

XLDnaute Accro
Bonjour,
Il suffit de rajouter
VB:
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

XLDnaute Occasionnel
Bonjour,
Il suffit de rajouter
VB:
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
 

Pièces jointes

  • Ma feuille Gestion des acces.PNG
    Ma feuille Gestion des acces.PNG
    46.7 KB · Affichages: 49
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Bonjour tous,
Pour rem13
Voici un code nombre illimité de mdp
Bruno
VB:
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
 

Discussions similaires

Réponses
5
Affichages
367
Compte Supprimé 979
C
Réponses
2
Affichages
113

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof