Toute mes feuilles et non la premiere

[aurel]

Bonjour a tous,
J ai une petite macro qui permet de desactiver la protection pour se que j ai besoin, mais sa marche que sur la premiere feuille car je ne connai pas la syntaxe pour l etendre a tous mon fichier excel.

Private Sub Workbook_Open()
Sheets(1).EnableOutlining = True
Sheets(1).Protect Password:="1234", userInterfaceOnly:=True
End Sub

Merci d avance

 

[dixit]

Re : Toute mes feuilles et non la premiere

bonjour,

dim lafeuille as Worksheet (lafeuille est un nom à choisir)

For Each lafeuille In Worksheets
' chaque feuille dans la collection de feuilles
' faire le traitement pour la feuille
Next