Macro pour toutes les feuilles

Bonjour à tous,

J'ai la fonction ci-dessous qui s'applique à une feuille en particulier et je voudrais qu'elle s'applique à toutes les feuilles du classeur.

Quelqu'un pourrais t-il me donner le code me permettant de le faire ?

Merci

Private Sub Workbook_Open()
With Sheets("Plan vierge")
    .EnableOutlining = True
    .Protect userInterfaceOnly:=True
End With
End Sub

Bonjour,

Mettre les 2 macros dans ThisWorkbook

Private Sub Workbook_Open()
Dim Sh
For Each Sh In Worksheets
    Sh.EnableOutlining = True
    Sh.Protect userInterfaceOnly:=True
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.EnableOutlining = True
    Sh.Protect userInterfaceOnly:=True
End Sub

A+

Merci pour ce code,

Petite question comment dit-on dans le code "activer la modification des objects" ?

Hum...

On ne dit pas ! ( car par défaut cette option est à True... )

Pour mettre à False :

Sh.Protect DrawingObjects:= False UserInterfaceOnly:=True

A ce sujet voir aussi l'aide de VBA pour "Protect"

A+