Userform bouton quitter et annuler

jetgirl · 14 Novembre 2008

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 · 14 Novembre 2008

Re : Userform bouton quitter et annuler

Bonsoir,

Code:

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

Code:

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 · 14 Novembre 2008

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!

Userform bouton quitter et annuler

jetgirl

Guest

kjin

XLDnaute Barbatruc

jetgirl

Guest

Discussions similaires

Userform bouton quitter et annuler

jetgirl

Guest

kjin

XLDnaute Barbatruc

jetgirl

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency