Blatt entsperren, Zellenschutz ändern,
01.07.2020 10:59:46
Sebastian
ich möchte in einem Sheet zum öffnen den Blattschutz entfernen, bestimmte Zellen nichtmehr Schützen und dann den Blattschutz wieder aktivieren.
Es entsperrt mir das Blatt auch, ändert allerdings keine Eigenschaften und sperrt dann wieder.
Private Sub Workbook_Open()
ActiveWorkbook.Sheets("Output Dyn. Sub. FY20_21").Unprotect Password:="ChangeListe"
Worksheets("Output Dyn. Sub. FY20_21").Range("A:Y").Locked = False
ActiveWorkbook.Sheets("Output Dyn. Sub. FY20_21").Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowInsertingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="ChangeListe"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Sheets("Output Dyn. Sub. FY20_21").Unprotect Password:="ChangeListe"
Worksheets("Output Dyn. Sub. FY20_21").Range("A:Y").Locked = True
ActiveWorkbook.Sheets("Output Dyn. Sub. FY20_21").Protect DrawingObjects:=True, Contents:= _
True, Scenarios:=True, Password:="ChangeListe"
ActiveSheet.EnableSelection = xlNoSelection
End Sub
Anzeige