In den Blättern sollen nur nicht gesperrte Zellen ausgewählt werden können.
Nun die Frage: Kann ich mehrere Blätter gleichzeitig in einem Schritt schützen?
bis jetzt musste ich jedes blatt nacheinander einzeln mit kennwort schützen.
vielen Dank!
Sub Blätter_schützen()
For sh = 1 To Sheets.Count
Sheets(sh).Protect
Next sh
End Sub
Sub Blätter_entschützen()
For sh = 1 To Sheets.Count
Sheets(sh).Unprotect
Next sh
End Sub
Sub schütz()
'alle Blätter schützen
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="abc"
Next ws
End Sub