Guten Morgen,
ich habe ein Makro, es hat bisher gut funktioniert, aber leider klappt es jetzt nicht mehr. Dieses Makro soll beim Öffnen der Arbeitsmappe bestimmte Blätter sperren und nur die Gliederung und Autofilter zulassen (mit Passwortschutz). Es sollen noch mehrere Tabellenblätter dazu kommen. Leider kriege ich es nicht hin, dass er dieses Makro für ALLE Tabellenblätter übernimmt.
Vielleicht kann mir jemand helfen?
Sub Workbook_Open()
With Worksheets("LK 24.09.2012")
.Protect UserInterfaceOnly:=True, Password:="lk"
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
With Worksheets("LK 28.06.2012")
.Protect UserInterfaceOnly:=True, Password:="lk"
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
With Worksheets("LK 27.08.2012")
.Protect UserInterfaceOnly:=True, Password:="lk"
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
Vielen lieben DANK!