Beim Benden = Blattschutz automatisch einrichten

Sub cl_Beenden_Click()
'Programm verlassen
Dim antw As Integer
If MsgBox("Möchten Sie wirklich das Programm schliessen?", vbYesNo, "Programm beenden") = vbYes  _
_
_
Then
antw = MsgBox("Möchten Sie speichern?", vbYesNoCancel, "Speichern?")
If antw = vbCancel Then
Cancel = True
Exit Sub
End If
If antw = vbYes Then
ThisWorkbook.Save
End If
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.Quit
Else
Cancel = True
End If
End Sub

Sub BlattschutzEinrichten()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Protect ("spps")

Next i

End Sub

Sub BlattschutzAufbeben()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Unprotect ("spps")

Next i

End Sub