AW: Unprotect auch unter 97
Bert
Bert
Private Sub Aufheben()
For I = 1 To Sheets.Count
Sheets(I).Unprotect ("Passwort")
Next I
End Sub
Private Sub Schutz()
For I = 1 To Sheets.Count
Sheets(I).Protect ("Passwort")
Next I
End Sub