Attribute VB_Name = "Modul6"
Option Explicit
'
' Tabellenblattschutz ein/ausschalten
'
Sub schutz()
Dim s
'
'Schutz aufheben
For s = 1 To Sheets.Count
    Sheets(s).Select
    ActiveSheet.Unprotect
Next s
'
'Schutz zuschalten
For s = 1 To Sheets.Count
    Sheets(s).Select
    ActiveSheet.Protect
Next s
'
End Sub