Bonjour tout le monde,
J’utilise le code suivant :
Private Sub Workbook_Open()
Dim F As Object, s As Object
Set F = ActiveSheet 'mémorise la feuille
Application.ScreenUpdating = False
For Each s In Sheets
s.EnableAutoFilter = True
s.EnableOutlining = True
s.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
s.Activate
ActiveWindow.Zoom = 80
Next
F.Activate 'restitution
End Sub
qui me permet de faire trois choses :
- Laisser la possibilité d’utiliser les « + » et les « - » des niveaux générés par la propriété « grouper et créer un plan ».
- Protège toutes mes feuilles
- Initialise le zoom de mes feuilles à 80% quand j’ouvre mon fichier Excel.
Sachant qua quand je manipule le fichier, je laisse parfois des feuilles avec le niveau 1 ou 2 voir même le niveau 3 de détails (selon « grouper et créer un plan »).
J’aimerais savoir, si vous avez une idée pour qu’au moment de la réouverture de mon fichier toutes les feuilles soient mises au niveau 1 (le nœud principal). J’espère que j’ai été assez clair dans l’exposé de ma requête.
Merci par avance à vous les amis.
Amitiés,
Pricer
J’utilise le code suivant :
Private Sub Workbook_Open()
Dim F As Object, s As Object
Set F = ActiveSheet 'mémorise la feuille
Application.ScreenUpdating = False
For Each s In Sheets
s.EnableAutoFilter = True
s.EnableOutlining = True
s.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
s.Activate
ActiveWindow.Zoom = 80
Next
F.Activate 'restitution
End Sub
qui me permet de faire trois choses :
- Laisser la possibilité d’utiliser les « + » et les « - » des niveaux générés par la propriété « grouper et créer un plan ».
- Protège toutes mes feuilles
- Initialise le zoom de mes feuilles à 80% quand j’ouvre mon fichier Excel.
Sachant qua quand je manipule le fichier, je laisse parfois des feuilles avec le niveau 1 ou 2 voir même le niveau 3 de détails (selon « grouper et créer un plan »).
J’aimerais savoir, si vous avez une idée pour qu’au moment de la réouverture de mon fichier toutes les feuilles soient mises au niveau 1 (le nœud principal). J’espère que j’ai été assez clair dans l’exposé de ma requête.
Merci par avance à vous les amis.
Amitiés,
Pricer
