Refonte de code

[pricer]

Bonjour tout le mode,

J'ai fais ce petit code pour me permettre d'utiliser les groupements de plans tout en protégeant mes feuilles :

Private Sub Workbook_Open()
With Worksheets("F1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
With Worksheets("F2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
With Worksheets("EF3")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
End Sub

Est-ce qu'il y a moyen de le rendre ce code plus élégant et facilement généralisable à plusieurs feuilles sans avoir les instructions :

With Worksheets("F1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With

autant de fois qu'il y a de feuilles dans le classeur.

Merci beaucoup pour vos réponses.

Pricer

 

[kjin]

Re : Refonte de code

Bonjour,
Peut-être en utilisant l'événement "Workbook_SheetActivate" de thisworkbook ou boucler sur toutes les feuilles dans l'événement "Open"
A+
kjin

 

[Dan]

Re : Refonte de code

Bonjour,

Essaie ceci :

Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To Sheets.Count
With Sheets(i)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
Next
End Sub

Amicalement

 

[pricer]

Re : Refonte de code

Merci beaucoup.
Cela marche parfaitement.
Quand j'ai rajouté une ligne de code pour forcer les zoom de mes pages à 80% (.ActiveWindow.Zoom = 80) ca n'a pas marché !
Est ce que vous auriez une idée ou une solution svp ..

Merci encore une fois
Pricer

 

[Dan]

Re : Refonte de code

Bonsoir,

Essaie avec cette instruction juste après la ligne --> .EnableOutlining = True

.PageSetup.Zoom = 80

Amicalement