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