Dennnisss
XLDnaute Occasionnel
Bonjour a tous
J'ai prit sur votre site un exemple d'ouverture automatique d'un user et qui demande un mot de passe , bien sur il va tres bien , moi j'ai essayer d'incorporer un test de trois essaie , si apres trois essaie il doit fermer le dossier ou excel , aussi dans mon user je creer un label qui affiche le nombre de fois qui ont ete manquer
Je me suis permis d'envoyer seulement le code si besoin d'un user je vous l'envoie sur demande
alors merci de votre aide et attend vos suggestion
salut dennnisss 😉😉
Private Sub CommandButton1_Click()
Dim x As Integer
Dim mot_de_passe As String
mot_de_passe = "patou"
If TextBox1.Text <> mot_de_passe Then
x = x + 1
MsgBox "Mauvais mot de passe"
If x = 3 Then
ActiveWorkbook.Close
Else
End If
Else
MsgBox "Mot de passe est bien écrit"
Me.Hide
End If
End Sub
J'ai prit sur votre site un exemple d'ouverture automatique d'un user et qui demande un mot de passe , bien sur il va tres bien , moi j'ai essayer d'incorporer un test de trois essaie , si apres trois essaie il doit fermer le dossier ou excel , aussi dans mon user je creer un label qui affiche le nombre de fois qui ont ete manquer
Je me suis permis d'envoyer seulement le code si besoin d'un user je vous l'envoie sur demande
alors merci de votre aide et attend vos suggestion
salut dennnisss 😉😉
Private Sub CommandButton1_Click()
Dim x As Integer
Dim mot_de_passe As String
mot_de_passe = "patou"
If TextBox1.Text <> mot_de_passe Then
x = x + 1
MsgBox "Mauvais mot de passe"
If x = 3 Then
ActiveWorkbook.Close
Else
End If
Else
MsgBox "Mot de passe est bien écrit"
Me.Hide
End If
End Sub