Mot de passe USERFORM

  • Initiateur de la discussion Initiateur de la discussion rem13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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,
 
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,
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: 57
Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
128
  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
489
Réponses
4
Affichages
223
Réponses
14
Affichages
247
Réponses
10
Affichages
632
Réponses
5
Affichages
807
Compte Supprimé 979
C
Réponses
2
Affichages
530
Réponses
32
Affichages
1 K
Retour