Sie möchten für alle Tabellenblätter einer Arbeitsmappe den Blattschutz setzen bzw. entfernen

Mit den nachstehenden beiden Makros können Sie für alle Tabellenblätter einer Arbeitsmappe den Blattschutz setzen bzw. entfernen

 

Sub schutz_rein()
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Protect Password:="Geheim"
Next
End Sub

Sub schutz_raus()
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Unprotect Password:="Geheim"
Next
End Sub