Schutz über alle Blätter aufheben

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.CutCopyMode = False
Dim objWs As Worksheet
Dim rngLock As Range
On Error Resume Next
For Each objWs In ThisWorkbook.Worksheets
With objWs
.Unprotect ""
Set rngLock = .UsedRange.SpecialCells(xlCellTypeConstants)
If Not rngLock Is Nothing Then rngLock.Locked = True
Set rngLock = .UsedRange.SpecialCells(xlCellTypeFormulas)
If Not rngLock Is Nothing Then rngLock.Locked = True
.Protect ""
End With
Set rngLock = Nothing
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub