Sub Workbook Open for each sheet
31.03.2022 10:25:12
Robin
hab das unten angegebene Makro laufen und bin eigentlich zufrieden damit.
Jetzt hab ich in einem Forum gesehen, dass man den Befehl nicht für jedes einzelne Blatt ausführen lassen muss, sondern, dass man das ganze mit dem Befehl "for each sheet in Active.Workbook" etwas eleganter und interaktiver gestalten kann. Aktuell müssen nämlich immer mindestens 6 Sheets vorhanden sein, damit ich keine Fehlermeldung bekomme.
UND: ab sofort soll bitte ein Passwort für den Blattschutz erforderlich sein, weiß nicht wie ich das integriere ....
so ists aktuell:
Sub Workbook_Open()
Sheets(1).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(1).EnableOutlining = True
Sheets(2).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(2).EnableOutlining = True
Sheets(3).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(3).EnableOutlining = True
Sheets(4).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(4).EnableOutlining = True
Sheets(5).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(5).EnableOutlining = True
Sheets(6).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(6).EnableOutlining = True
End Sub
so könnte es aussehen, läuft aber nicht:
Sub Workbook_Open()
For Each Sheet In Active.Workbook.Worksheets
Sheet.Protect, Passwort="12345"
Sheet.AllowFormattingRows
Sheet.EnableOutlining
Next Sheet
End Sub
Vielen Dank für Eure Hilfe! Grüße Robin