mot de passe !

Bonjour, mes mots de passe valides sont dans une feuille "Utilisateurs_Autorisés" dans la colonne B (que je protégerai par la suite).
J'ai un UserForm qui s'affiche à l'ouverture du classeur avec un TextBox et un Bouton OK. Je n'arrive pas à obtenir ce que je veux c'est à dire si le mot de passe est valide l'utilisateur accède au classeur sinon il recommence.
Petit plus : Comment faire pour que TOUT se ferme en appuyant sur la croix en haut à droite du UserForm ?
Merci de vos réponses !

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function MotDePasseValide(mot As String) MotDePasseValide = True Dim cell As Range Set cell = Worksheets("Utilisateurs_Autorisés").Range("B2") Do While mot <> cell.Value And Not IsEmpty(cell) MotDePasseValide = False cell = cell.Offset(1, 0) Loop End Function   Private Sub OKAuthent_Click() If MotDePasseValide(TextBox1.Text) = False Then MsgBox "non" Exit Sub Else MsgBox "ok" End If End Sub

---

Bonjour,
Il y a quelque petites erreurs dans ton code, je te propose ces corrections :
L'objet cell ne bouge pas car

cell = cell.Offset(1, 0)

recopie la valeur de cell.Offset(1, 0) dans cell. Tu dois donc avoir après exécution de ta macro la valeur de C2 recopiée dans B2. La bonne formulation est

Set cell = cell.Offset(1, 0)

Ensuite, la logique de la boucle est inversée, il faut initialiser MotDePasseValide à Faux et mettre dedans True si on trouve le mot de passe recherché.
Voici comment tu pourrais coder ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function MotDePasseValide(mot As String) Dim cell As Range   MotDePasseValide = False Set cell = Worksheets("Utilisateurs_Autorisés").Range("B2")   'Tant qu'il y a des mots de passe à vérifier Do While Not IsEmpty(cell)   'Le mot de passe saisi est trouvé dans la cellule : 'on alimente MotDePasseValide et on sort de la boucle If mot = cell.Value Then MotDePasseValide = True Exit Do End If   'On se déplace à la ligne suivante Set cell = cell.Offset(1, 0)   Loop   End Function

---

Merci beaucoup c'est niquel !

petite question en plus !!! comment faire pour tout quitter en appuyant sur la croix en haut a droite ???

Bonjour,

Il faut utiliser la procédure évènementielle QueryClose. Le code suivant est à noter dans le code du userform :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Application.DisplayAlerts = False Application.Quit End If End Sub

---

Bonjour Tedo et Yoyo et merci pour vos réponses très utiles.
Entre hier et aujourd'hui mon code a changé.
J'ai pensé que créer un UserForm juste pour vérifier qu'un matricule était autorisé ou non était un peu lourd. J'utilise donc maintenant un Inputbox.
Mon véritable besoin (que j'aurais du préciser dès le début) consiste à vérifier que le Matricule entré est bien dans la colonne B de la feuille Utilisateurs_Autorisés mais également de récupérer les informations correspondantes en colonnes A et C (nom et type) afin de déterminer quelles feuilles l'utilisateur pourra utiliser.
J'ai intégré mon Code dans ThisWorkbook.
Le voici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Function MotDePasseValide(mot As String) Dim cell As Range MotDePasseValide = False Set cell = Worksheets("Utilisateurs_Autorisés").Range("B2") 'Tant qu'il y a des mots de passe à vérifier Do While Not IsEmpty(cell) 'Le mot de passe saisi est trouvé dans la cellule : 'on alimente MotDePasseValide et on sort de la boucle If mot = cell.Value Then MotDePasseValide = True Exit Do End If 'On se déplace à la ligne suivante Set cell = cell.Offset(1, 0) Loop End Function   Private Sub Workbook_Open() Worksheets("Feuille_Vide").Select While MotDePasseValide(InputBox("Veuillez entre votre matricule", "Authentification")) = False MsgBox "Votre matricule n'est pas valide (pensez aux majuscules !)", vbOKOnly, "Accès refusé" Wend MsgBox "Bienvenue !", vbOKOnly, "Accès autorisé" 'on affiche la feuille qui correspond au matricule 'on désactive les accès aux feuilles non-autorisés 'on désactive les boutons permettant de naviguer entre les feuilles End Sub

---

J'ai un peu modifié ton code pour te faire avancer. Le code que je te propose est loin d'être complet, mais le but est de savoir si cela correspond à ce que tu attends au départ.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Option Explicit 'Evite les erreurs !   Function MatriculeValide(mot As String) As String Dim cell As Range MatriculeValide = 0 Set cell = Worksheets("Utilisateurs_Autorisés").Range("B2") 'Tant qu'il y a des mots de passe à vérifier Do While Not IsEmpty(cell) 'Le mot de passe saisi est trouvé dans la cellule : 'on alimente MatriculeValide et on sort de la boucle If mot = cell.Value Then MatriculeValide = mot Exit Do End If 'On se déplace à la ligne suivante Set cell = cell.Offset(1, 0) Loop End Function   Private Sub Workbook_Open() Dim MatriculeEntre As String   Worksheets("Feuille_Vide").Select MatriculeEntre = InputBox("Veuillez entrer votre matricule", "Authentification") While (MatriculeValide(MatriculeEntre) = "0" And MatriculeEntre <> "") MsgBox "Votre matricule n'est pas valide (pensez aux majuscules !)", vbOKOnly, "Accès refusé" MatriculeEntre = InputBox("Veuillez entrer votre matricule", "Authentification") Wend If MatriculeEntre = "" Then Application.DisplayAlerts = False Application.Quit Else MsgBox "Bienvenue !", vbOKOnly, "Accès autorisé" 'on affiche la feuille qui correspond au matricule Worksheets(MatriculeEntre).Select 'on désactive les accès aux feuilles non-autorisés 'on désactive les boutons permettant de naviguer entre les feuilles End If End Sub

---

Pour les deux lignes suivantes :

Code:

---

1 2	'on désactive les accès aux feuilles non-autorisés 'on désactive les boutons permettant de naviguer entre les feuilles

---

Je pense qu'il faudrait protéger tous les onglets et masquer ceux dont l'utilisateur ne doit pas avoir accès.

Enfin, il faudrait remplacer la recherche par un .Find qui devrait être plus efficace je pense.

merci pour Find Yoyo ! grâce à ça je peux récupérer les infos dont j'ai besoin:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Workbook_Open() 'on déclare les matricules, types et noms des utilisateurs autorisés Dim Matricule As String Dim Typ As String Dim Nom As String 'nombre d'utilisateurs autorisés Dim NbUtilisateurs As Integer NbUtilisateurs = Range("B" & Worksheets("Utilisateurs_Autorisés").Rows.Count).End(xlUp).Row 'la feuille vide est affichée pendant la saisie du matricule pour que l'utilisateur ne voit rien Worksheets("Feuille_Vide").Select 'étiquette MDP qui permet de relancer la demande tant que le matricule n'est pas le bon MDP: Matricule = InputBox("Veuillez entre votre matricule", "Authentification") If MotDePasseValide(Matricule) = False Then MsgBox "Votre matricule n'est pas valide (pensez aux majuscules !)", vbOKOnly, "Accès refusé" GoTo MDP Else MsgBox "Bienvenue !", vbOKOnly, "Accès autorisé" 'on récupère les info correspondant au matricule Typ = Worksheets("Utilisateurs_Autorisés").Range("B:B").Find(Matricule).Offset(0, 1).Value Nom = Worksheets("Utilisateurs_Autorisés").Range("B:B").Find(Matricule).Offset(0, 2).Value MsgBox Typ & " " & Nom End If End Sub

---

reste plus qu'à, en fonction du type de l'utilisateur, désactiver ce qu'il faut (boutons et feuilles) ou masquer (je ne sais pas)
mais en tout cas merci !

Comment est-il possible de quitter Excel avec ton code ? Dans ma proposition, si tu regardes bien, dès que l'utilisateur n'entre pas de matricule ou clique sur Annuler, il quitte Excel sans enregistrer.

De plus, je pense que l'utilisation de Goto est à éviter, cela crée des embranchements qui entraîne une augmentation du risque d'erreurs, et une difficulté de debug accrue. Dans ce cas, le Goto est loin d'être indispensable.

Il est vrai que je n'y ai plus pensé sur le coup...
Maintenant si l'utilisateur entre "" ou un matricule invalide le GoTo permet de relancer la demande d'authentification....je sais bien que ce n'est pas une méthode propre mais je n'arrivais à rien d'autre ...
Merci je teste ça et je te tiens au courant.!
Petite question: a quoi sert-il d'initialiser un string à 0 ?

Je pense que tu parles de la ligne suivante :

Code:

---

MatriculeValide = 0

---

quil serait plus judicieux d'écrire :

Code:

---

MatriculeValide = ""

---

sans oublier de remplacer

Code:

---

While (MatriculeValide(MatriculeEntre) = "0" And MatriculeEntre <> "")

---

par

Code:

---

While (MatriculeValide(MatriculeEntre) = "" And MatriculeEntre <> "")

---

Dans mon cas, il s'agit d'une balise permettant de montrer qu'un matricule a été entré mais qu'il n'a pas été trouvé dans la feuille de calcul.

Merci mille fois !