• Initiateur de la discussion Initiateur de la discussion Rikikiller
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Re : msgbox avec mdp

Bonsoir Riki,

Si j'ai bien compris, peux-tu essayer ceci ?

Code:
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
 
Re : msgbox avec mdp

Bonsoir Cbea, bonsoir le forum

J'ai essayé ta proposition et apparemment le résultat me convient. Je verrai demain plus avant si j'essaie de nouvelles évolutions pour mon projet. Quoiqu'il en soit je te remercie sincèrement pour cette nouvelle aide. A+

Riki
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
441
Réponses
32
Affichages
1 K
Réponses
5
Affichages
735
Compte Supprimé 979
C
Réponses
1
Affichages
465
Retour