Bonjour à tous,

Voici un morceau de code que j'ai tapé. Je souhaiterai y ajouter qu'au bout de 3 essais infructueux, le fichier se ferme sans sauvegarde.
Pouvez-vous m'aider, s'il vous plait ?
Par avance merci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    If Controls("Textbox1") = "" Then
        MsgBox "Vous devez taper un mot de passe !", vbExclamation, "ERREUR... Taper le mot de passe SVP !"
        Controls("Textbox1").SetFocus
        Exit Sub
        End If
        FrmPasse.TextBox1.Text = "6100"
        Unload FrmPasse
End Sub