Mot de passe VBA qui ne fonctionne pas Fermé

Question

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. Configuration: Windows 7 / Firefox 7.0.1

Patrice33740 · Answer

« 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

Le Pingou · Answer

Bonjour,
Depuis quel endroit du classeur vous ouvrez  le formulaire pour contrôle du nom et mot de passe utilisateur?

Valochelboss · Answer

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?

pilas31 · Answer

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,