Mot de passe VBA qui ne fonctionne pas
Valochelboss
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sur Visual Basis sur Excel 2010, j'ai mis ça
"Private Sub CommandButton1_Click()
If Mot_de_passe.Nom_utilisateur <> "utilisateur" Then
MsgBox "Nom d'utilisateur incorrect!"
Nom_utilisateur.SetFocus
Exit Sub
End If
If Mot_de_passe.Motdepasse <> "mdp" Then
MsgBox "Mot de passe incorrect !"
Motdepasse.SetFocus
Exit Sub
End If
Nom_utilisateur.Text = "utilisateur"
Motdepasse.Text = "mdp"
Mot_de_passe.Hide
Sheets("Feuil2").Select
End Sub"
La feuille s'ouvre quand le mot de passe et l'utilisateur sont bons. Mais si je me trompe et que je clique sur la petite croix rouge de mon userform, ma feuille s'ouvre quand même (malgré le message "Nom d'utilisateur incorrect !"). Quelle commande ai-je oublié?
Merci d'avance pour vos réponses.
Bonne soirée.
Sur Visual Basis sur Excel 2010, j'ai mis ça
"Private Sub CommandButton1_Click()
If Mot_de_passe.Nom_utilisateur <> "utilisateur" Then
MsgBox "Nom d'utilisateur incorrect!"
Nom_utilisateur.SetFocus
Exit Sub
End If
If Mot_de_passe.Motdepasse <> "mdp" Then
MsgBox "Mot de passe incorrect !"
Motdepasse.SetFocus
Exit Sub
End If
Nom_utilisateur.Text = "utilisateur"
Motdepasse.Text = "mdp"
Mot_de_passe.Hide
Sheets("Feuil2").Select
End Sub"
La feuille s'ouvre quand le mot de passe et l'utilisateur sont bons. Mais si je me trompe et que je clique sur la petite croix rouge de mon userform, ma feuille s'ouvre quand même (malgré le message "Nom d'utilisateur incorrect !"). Quelle commande ai-je oublié?
Merci d'avance pour vos réponses.
Bonne soirée.
4 réponses
-
« ma feuille s'ouvre quand même »
Certainement parce qu'elle était ouverte avant d'ouvrir le formulaire !
« Quelle commande ai-je oublié? »
Peut-être au début du code :
Sheets("Feuil1").Select -
Bonjour,
Depuis quel endroit du classeur vous ouvrez le formulaire pour contrôle du nom et mot de passe utilisateur? -
Pour Patrice33740 : je la mets où cette commande? Parce que je pense qu'il faut un "if" ou quelque chose comme ça pour l'introduire?
Pour Le Pingou : je l'ouvre depuis la "feuil1" pour aller à la "feuil2". Mais en cas de mauvaise saisie du mot de passe, je voudrais que l'utilisateur retourne à la "feuil1". Comment faire? -
Bonjour,
A vérifier aussi s'il n'y a pas d'autres fonctions dans le code associé à l'Userform du type :
Private Sub UserForm_Activate
Private Sub UserForm_QueryClose
Private Sub UserForm_Terminate
Dans lesquelles la feuil2 serait sélectionnée.
On ne sait jamais...
A+
Cordialement,
