Activerun code sur chaque feuille d'un classeur

Bonjour à tous,

J'ai le code suivant, qui me permet d'utiliser des colonnes groupées sans ôter la protection. Cependant j'aimerais que cette protection sois active sur toute les feuilles du classeur et que sur toutes les feuilles je puisse utiliser les colonnes groupées..

Private Sub Workbook_Open()
With Worksheets("F1")
.Unprotect Password:="AA" 
.EnableOutlining = True
.Protect Password:="AA", UserInterfaceOnly:=True
End With
End Sub

Merci d'avance pour votre aide.

Cordialement,

Mugiwaraa

J'ai finalement réussi à trouver la solution.

Si besoin :

Private Sub Workbook_Open()
 Dim sht As Worksheet
 For Each sht In Worksheets
 With sht
.Unprotect Password:="AA"
.EnableOutlining = True
.Protect Password:="AA", UserInterfaceOnly:=True
End With
 Next sht
End Sub

Cordialement,

Mugiwaraa