Gruppierung trotz Blattschutz die 2

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

es geht mal wieder nicht ohne euch :wink:

Dieser Code

Private Sub Workbook\_Open()
 With Worksheets(2) 
 .Protect UserInterfaceOnly:=True
 .EnableOutlining = True
 End With
End Sub

ermöglicht es mir, trotz Blattschutz die Gruppierung und
ein Makro zu verwenden, welches mir Zeilen aus/einblendet,
die in Spalte A eine Null haben.

Wie kann ich erreichen, daß dies für alle Blätter
in der Arbeitsmappe gilt?

Kann jemand helfen?

Gruß und danke

Rolf

2 
Private Sub Workbook\_Open()
 Dim oWS
 
 For Each oWS In ActiveWorkbook.Worksheets
 oWS.Protect UserInterfaceOnly:=True
 oWS.EnableOutlining = True
 Next ' oWS In ActiveWorkbook.Worksheets
End Sub

Gruß
Christian

3

Moin Christian,

das klappt prima. Vielen Dank.

Gruß

Rolf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]