Sub Schutz_aufheben()
Dim i As Byte
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "hier dein Passwort"
Next i
End Sub
Sub Schutz_aufheben()
Dim i As Byte
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "hier dein Passwort"
Next i
End Sub
Sub Schutz_()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "xyz"
Next i
End Sub