Option Explicit
Dim j As Object

Private Sub Workbook_Open()
    Application.CommandBars("Blattschutz für Neigungen").Visible = True
    Blattschutz_alle_ja
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Blattschutz für Neigungen").Visible = False
End Sub

Private Sub Workbook_Activate()
    Application.CommandBars("Blattschutz für Neigungen").Visible = True
End Sub

Private Sub Workbook_Deactivate()
    Application.CommandBars("Blattschutz für Neigungen").Visible = False
End Sub

Public Sub Blattschutz_dieses_ja()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Public Sub Blattschutz_dieses_nein()
    ActiveSheet.Unprotect
End Sub

Public Sub Blattschutz_alle_ja()
    For Each j In ThisWorkbook.Sheets
        j.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next
End Sub

Public Sub Blattschutz_alle_nein()
    For Each j In ThisWorkbook.Sheets
        j.Unprotect
    Next
End Sub