Discussion :

[capi81]

Salut le forum

J'ai 2 macros qui permettent aux utilisateurs de s'identifier par un mot de passe pour avoir accès au fichier.
Je constate quelque insuffisance dans les codes et souhaite votre aide pour l'améliorer.
Voici les points faibles:
- Après 3 essais infructueux (dans le cas ou le mot de passe renseigné est erroné ou encore qu'il n'existe pas dans la plage nommée MotDePasse), l'usf se ferme mais le fichier reste ouvert (accessible),
* je souhaite qu'après les 3 essais infructueux, que le fichier même se ferme.
- J'ai constaté aussi que lorsque le textbox5 (ou le mot de passe doit être renseigné) est vide et que l'on clic sur "valider", l'usf se ferme mais le fichier reste ouvert.
Je souhaite également que lorsque le textbox5 n'est pas renseigné, si on clic 3 fois sur valider, que le fichier se ferme.
NB:- au besoin, si le textbox5 est vide, en cliquant sur "valider", qu'un msgbox demande de renseigner le mot de passe.
Ci-dessous le 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
20
Option Explicit
Private Sub CommandButton1_Click()
Dim i
For i = 1 To Range("Motdepasse").Count
If TextBox5 = UCase(Range("Motdepasse")(i)) Then Unload Me:  Exit Sub
Next i
TextBox2.Value = TextBox2.Value + 1
If TextBox2.Value = 3 Then
Unload Me
If Workbooks.Count > 1 Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.Quit
End If
Else
TextBox5 = ""
TextBox5.SetFocus
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox2_Change()
If TextBox2 = 1 Then
Label2.Caption = " attention plus que 2 essais"
End If
If TextBox2 = 2 Then
Label2.Caption = " attention plus que 1 essai"
Label2.ForeColor = &HFF&
Label2.Font.Size = 12
End If
End Sub

Merci

[mercatog]

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
Private Sub CommandButton1_Click()
Dim i As Long
 
For i = 1 To Range("Motdepasse").Count
    If Me.TextBox5.Value <> "" And UCase(Me.TextBox5.Value) = UCase(Range("Motdepasse")(i)) Then
        Unload Me
        Exit Sub
    End If
Next i
 
Me.TextBox2.Value = Val(Me.TextBox2.Value) + 1
If Me.TextBox2.Value = 3 Then
    ThisWorkbook.Close False
Else
    Me.TextBox5.Value = ""
    Me.TextBox5.SetFocus
End If
End Sub

[capi81]

Salut Mercatog

Comme d'habitude vos interventions sont toujours fort appréciable.
Je reste toujours bouche bée quant à vos solutions.
Merci et encore merci pour vos merveilles.