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
[COLOR="Red"]If Valeur_AA65100 = "" Then Exit Sub[/COLOR]
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