Blatt Sperre
25.04.2022 08:40:04
Herrmann
ich verwende das Makro, um mit einem Button alle 24 Blätter zu schützen und auch den Schutz bei Bearbeitung aufzuheben.
Sub SperreAlleAnAus()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim B As Worksheet
For Each B In Wb.Worksheets
Select Case B.ProtectContents
Case True
B.Unprotect "5555"
Case False
B.Protect "5555", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
End Select
Next B
Set Wb = Nothing: Set B = Nothing
End Sub
Danke im Voraus,
Gruß