Userform de mot de passe

Bonsoir

me voila encore avec un cercle vicieux de questions :cry:

Bon, Au lancement de mon classeur je dois rentrer un mot de passe dans une userform si le mot de passe est faux le classeur ne s'ouvre pas mais le problème est que si je ferme l'userform par la croix en haut à droite j'accéde à mon classeur sans mot de passe :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Ok_Click() If Me.Passe = "ouarzazate" Then Call AfficherLesFeuilles Unload Me Else ThisWorkbook.Close False End If Me.Passe = "" End Sub     Sub AfficherLesFeuilles() Windows("gestion2008.xlsm").Visible = True End Sub

---

Une autre question, puis-je remplacer gestion2008.xlsm dans :

Code:

---

1 2	Sub AfficherLesFeuilles() Windows("gestion2008.xlsm").Visible = True

---

parce que je vais faire une centaine de copies à mon fichier excel sous plusieurs noms

donc pour chaque fichier je doit réecrire le nom de fichier dans le code :evilred:

Merci d'avance

pour ce qui est de ne as ouvrir le classeur... tu la mets où ta macro ?
Ce que tu peux faire est masquer toutes les feuilles à la fermeture de ton fichier, ainsi à l'ouverture elles sont invisibles, tu affiches un userform pour la saisie du logon et mot de passe et si c'est tout bon tu fais ce que tu as affaire ;)
Tu pourrais t'inspirer de ça Pièce jointe 36603
Login : marcel
Mot de passe : zizou

Pour éviter d'avoir à saisir le login, tu peux mettre ça dans UserForm_Activate

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() Application.EnableEvents = True 'les deux ligne de code suivantes sont à effacer si tu souhaites imposer la saisie du nom Me.Nom.Text = "kazannova" 'que tu peux remplacer par 'Me.Nom.Text = Environ("USERNAME")   Me.Passe.PasswordChar = "*" End Sub

---

Enfin, dans la procédure suivante, remplace par le nom de ton classeur

Code:

---

1 2 3

Sub AfficherLesFeuilles() Windows("LogonUserform.xls").Visible = True End Sub

---

Bonne nuit

Hello les kazannova's ;)

Si l'utilisateur clique sur "désactiver les macros"...le mot de passe tu peux t'assoir dessus :aie:

Ne serait-il pas plus judicieux de proteger le classeur via le menu Fichier --> Enregistrer (ou Enregistrer sous) --> Outils --> Options Générales ?

Hello fring,
Et si les feuilles sont masquées et protégées ? Tu t'en sers de siège ?
Mais tu as raison, ta solution est plus orthodoxe ;)

(je t'embêtrai plus, je pars pour 5 jours boire de la bière en Irlande :mouarf:)