Modification d'une macro

Bonjour,

J'ai une petite macro trouvée sur le net qui me permet de demander un mot de passe.

le seul soucis c'est que si la personne ne se souvient plus du mot de passe elle ne peux pas appuyer sur annuler.

peut-on faire en sorte que si le mot de passe est mauvais on ré-affiche la fenêtre et si la personne appuies sur "annuler" cela ferme le fichier.

par avance un grand merci.

Sub SaisieMotDePasse()
    Dim Reponse As String

    'Affiche la boîte de dialogue tant que l'utilisateur n'a pas saisi
    '"2020" (en minuscules).
    Do While Reponse <> "2020"
        Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
    Loop

  '  MsgBox "OK, Vous pouvez utiliser le fichier."
End Sub

Hello,

Devrait répondre à ton besoin

Sub SaisieMotDePasse()
    Dim Reponse As String

    'Affiche la boîte de dialogue tant que l'utilisateur n'a pas saisi
    '"2020" (en minuscules).
    Do While Reponse <> "2020"
        Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
        If StrPtr(Reponse) = 0 Then
        Exit Sub
        End If
    Loop

  '  MsgBox "OK, Vous pouvez utiliser le fichier."
End Sub

Bonjour,

Cela ne nous informe pas de l'évènement qui permet de lancer ta macro ?

C'est à l'ouverture d'excel ? ou après clic sur un bouton ?

Un autre style d'écriture affecté à un bouton par exemple :

Private Sub CommandButton1_Click()
Dim Password As String
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Verrouillage", Default:="", Type:=2)
If Not (Password = "2020") Then
MsgBox "Erreur mot de passe, v?rifiez majuscule", , "test"
Exit Sub
End If

'Ici on met le reste du code pour continuer si le mot de passe est corret.

End Sub

bonjour,

j'ajouterais un thisworkbook.close false avant le exit sub

Bonjour,

Merci pour vos réponse je viens de tester et tout fonctionne à merveille alors vous êtes les meilleurs.

Bonne continuation.