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 : Sélectionner tout - Visualiser dans une fenêtre à part
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