Discussion :

[kazannova]

Bonsoir

me voila encore avec un cercle vicieux de questions

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance

[ouskel'n'or]

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 Logon.zip
Login : marcel
Mot de passe : zizou

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne nuit

[fring]

Hello les kazannova's

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

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

[ouskel'n'or]

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 )