Rikikiller
XLDnaute Junior
Bonsoir le forum,
Qui peux me dire ce qu'il convient de modifier dans les lignes qui suivent pour que, lorsque je sélectionne "annuler" dans la msgbox je revienne la ou j'étais avant de cliquer sur le bouton (mais pas à la fermeture du classeur comme cela se passe après 3 mots de passe incorrects) ? J'espère être assez clair mais n'hésitez pas à me demander des précisions si tel n'était pas le cas.
Private Sub CommandButton1_Click()
Dim nbressais As Byte
retour:
Valeur_AA65100 = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux fonctions est sécurisé ")
Nom_Boîte = Valeur_A100
If Valeur_AA65100 = "JCK63" Then
Sheets(1).Range("AA65100").Select
ActiveCell.Value = Valeur_AA65100
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("A1").Select
Else
nbressais = nbressais + 1
If nbressais = 3 Then
MsgBox "Ce classeur va se fermer."
ThisWorkbook.Close
End If
MsgBox "Mot de passe incorrect."
GoTo retour
End If
UserForm1.Show
End Sub
Merci à vous tous de l'aide que vous serez en mesure de m'apporter. Au plaisir de vous lire.
Riki
Qui peux me dire ce qu'il convient de modifier dans les lignes qui suivent pour que, lorsque je sélectionne "annuler" dans la msgbox je revienne la ou j'étais avant de cliquer sur le bouton (mais pas à la fermeture du classeur comme cela se passe après 3 mots de passe incorrects) ? J'espère être assez clair mais n'hésitez pas à me demander des précisions si tel n'était pas le cas.
Private Sub CommandButton1_Click()
Dim nbressais As Byte
retour:
Valeur_AA65100 = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux fonctions est sécurisé ")
Nom_Boîte = Valeur_A100
If Valeur_AA65100 = "JCK63" Then
Sheets(1).Range("AA65100").Select
ActiveCell.Value = Valeur_AA65100
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("A1").Select
Else
nbressais = nbressais + 1
If nbressais = 3 Then
MsgBox "Ce classeur va se fermer."
ThisWorkbook.Close
End If
MsgBox "Mot de passe incorrect."
GoTo retour
End If
UserForm1.Show
End Sub
Merci à vous tous de l'aide que vous serez en mesure de m'apporter. Au plaisir de vous lire.
Riki