Excel VBA - Auswählen mehrerer Blätter

Problem

Ich habe einen bestimmten VBA-Code, den ich für die Gruppe / Aufhebung der Gruppe auf einem geschützten Blatt verwende. Es funktioniert gut, aber nur auf einem Blatt. Wie kann ich es ändern, um auf zwei zu arbeiten?

 Private Sub Workbook_open () Mit Sheet1 .Protect Password: = "secret", nur Benutzeroberfläche: = True .EnableOutlining = True End With End Sub

Ich kann nicht mehr als ein Blatt hinzufügen. Kann mir jemand helfen?

Lösung

Versuche dies:

 Private Sub Workbook_open () With sheets ("Sheet1 name") .Protect Password: = "secret", nur Benutzeroberfläche: = True .EnableOutlining = True End With With sheets ("Sheet2 name") .Protect Password: = "secret", nur Benutzeroberfläche : = True .EnableOutlining = True End With End Sub