Problème protection à l'ouverture

[ychc]

Bonsoir le Forum,

Il me reste un problème que je n'arrive pas à solutionner.
Je m'explique, j'ai un fichier d'environ huit onglets, seuls deux sont visibles dès l'ouverture, les autres le sont grâce à un MDP.
Jusque là tout va bien...Sauf que si j'ouvre mes onglets via mon MDP et que ensuite, je ferme mon fichier en refusant l'enregistrement, alors à la prochaine réouverture, celui-ci se réouvre avec tous les onglets visibles.
Il faudrait en fait cacher ces onglets obligatoirement dès l'ouverture du fichier.
Chose que je n'arrive pas à faire.
Si quelqu'un a un idée....Merci

Voici mon code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("synthèse détaillée").Visible = xlVeryHidden
Sheets("synthèse AL chgt.Nett").Visible = xlVeryHidden
Sheets("synthèse AL technique").Visible = xlVeryHidden
Sheets("graph somme AL technique").Visible = xlVeryHidden
Sheets("historique totale").Visible = xlVeryHidden
Sheets("graphique historique totale").Visible = xlVeryHidden
Sheets("données").Visible = xlVeryHidden
End Sub

 

[Etienne2323]

Re : Problème protection à l'ouverture

Salut ychc,
vous pouvez essayer ceci dans le module "ThisWorkbook"

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Sheets("synthèse détaillée").Visible = False
Sheets("synthèse AL chgt.Nett").Visible = False
Sheets("synthèse AL technique").Visible = False
Sheets("graph somme AL technique").Visible = False
Sheets("historique totale").Visible = False
Sheets("graphique historique totale").Visible = False
Sheets("données").Visible = False

End Sub

Une solution encore plus efficace serait de ne masquer les onglets que s'ils sont démasqués.

Private Sub Workbook_Open()

Application.ScreenUpdating = False
If Sheets("synthèse détaillée").Visible = True Then Sheets("synthèse détaillée").Visible = False
If Sheets("synthèse AL chgt.Nett").Visible = True Then Sheets("synthèse AL chgt.Nett").Visible = False
If Sheets("synthèse AL technique").Visible = True Then Sheets("synthèse AL technique").Visible = False
If Sheets("graph somme AL technique").Visible = True Then Sheets("graph somme AL technique").Visible = False
If Sheets("historique totale").Visible = True Then Sheets("historique totale").Visible = False
If Sheets("graphique historique totale").Visible = True Then Sheets("graphique historique totale").Visible = False
If Sheets("données").Visible = True Then Sheets("données").Visible = False

End Sub

Cordialement,

Étienne

 

[ychc]

Re : Problème protection à l'ouverture

Bonsoir Etienne,
Merci, c'est ce que je n'arrivais pas à faire. Et quelle rapidité!!!

Par contre, les deux solutions fonctionnent et je ne comprend pas franchement la différence entre les deux.
Et qu'est ce que tu entends par démasquer les onglets?
Car ceux-ci sont cachés dès l'ouverture.
C'était juste au cas où. Car je ne serai pas le seul à avoir le MP et si l'autre personne ne fermait pas correctement le fichier, alors les onglets auraient été visible à l'ouverture.

Merci encore