Userform bouton quitter et annuler

[jetgirl]

Bonsoir tout le monde !!! après avoir pas mal cherché sur le net, j'ai réussit a créer mon mot de passe.

voici mon code:


Private Sub CommandButton1_Click()

If TextBox1.Text <> "amelie" Then
MsgBox "mot de passe incorrect. Veuillez recommencer."
TextBox1.Text = ""
TextBox1.SetFocus
Else
MsgBox "Bienvenue!"
Unload Me
End If

End Sub
Quand je valide pas de soucis ça fonctionne.
Par contre, que dois je rajouter pour que le bouton annuler (que le texte tapper s'efface) et que le bouton quitter (quitter tout excel) fonctionne?
Merci de votre aide !

 

[kjin]

Re : Userform bouton quitter et annuler

Bonsoir,

Private Sub TonboutonAnnuler_Click()
TextBox1.Text = ""
TextBox1.SetFocus
End Sub

Private Sub TonboutonQuitter_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub

Mais il suffira de désactiver les macros, pour accéder au fichier
A+
kjin

 

[jetgirl]

Re : Userform bouton quitter et annuler

super merci beaucoup !!! c'est simplement un projet pour l'école donc pas besoin de vérouiller les VAB. Bonne soirée et encore merci!