Blattschutz Makro: Bereiche aussparen
16.05.2021 20:16:09
Dirk
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
Könnt Ihr mir bitte helfen, wie ich das in die Makros eingebaut bekomme? Danke im Voraus
Anzeige
