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 !
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 !