Quel est le code pour indiquer plusieurs feuilles à la fois ?

[Mi]

Bonsoir à tous,

Pour maintenir une certaine plage, escamotable lors du verouillage, on met d'habitude:

Private Sub Workbook_Open()
With Worksheets("Feuille1")
.EnableOutlining = True
.Protect Password:="tutu", UserInterfaceOnly:=True
End With
End Sub

(merci à @+Thierry pour le hint).

Ma question est comment indiquer cette l'action pour plusieurs feuilles du classeur (Feuille 2, 3 etc) ? Si je met

With Worksheets("Feuille1", "Feuille2", "Feuille3")

ça ne marche pas.

Merci pour votre aide,
Mi

 

[G'Claire]

Mi, le forum

Essaye peu être avec array :

Du style

Private Sub Workbook_Open()
feuille = Array("Feuil1", "Feuil2", "Feuil3")
For I = 0 To UBound(feuille)
With Sheets(feuille(I))
.EnableOutlining = True
.Protect Password:="tutu", UserInterfaceOnly:=True
End With
Next I
End Sub

Une astuce que l'on m'a donnée y'a pas longtemps

Salut, G'Claire

 

[myDearFriend]

Bonsoir Mi, le Forum


Tu peux essayer :

Private Sub Workbook_Open()
Dim Feuille As Worksheet
   For Each Feuille In Worksheets
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Feuille.Name <> "PasCellelà" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With Feuille
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.EnableOutlining = True
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Protect Password:="tutu", UserInterfaceOnly:=True
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End With
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;Next Feuille
End Sub


Cordialement.

Didier_mDF

 

[myDearFriend]

Oups,

Salut G'Claire, désolé je ne t'avais pas vu...

Didier_mDF

 

[G'Claire]

Re

C'est pas grave, je n'avais pas allumé les projecteurs, lol

G'Claire

 

[Mi]

Merci G'Claire et myDearFriend, ça marche ! 🙂