Sub BlattSchutzEin()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "Passwort"
Next i
End Sub
Sub BlattSchutzAus()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "Passwort"
Next i
End Sub
Folgende Frage: Auf einem bestimmten Tabellenblatt (nennen wir es Test) darf ein Bereich nicht geschütz werden: Bereich K3:P10. Auf einem anderen Tabellenblatt (nennen wir es Suche) darf nur eine Zelle nicht geschützt werden: D2Könnt Ihr mir bitte helfen, wie ich das in die Makros eingebaut bekomme? Danke im Voraus