habe diese Code aus dem Archiv, allerdings funktioniert er bei mir nicht. Ich bekomme die Meldung dass die Locked-Eigenschaft nicht festgelegt werden kann.
Sub sperren()
Dim rng As Range
Cells.Locked = True
For Each rng In ActiveSheet.UsedRange.Cells
If Not rng.Interior.ColorIndex = 1 Then
rng.Locked = False
End If
Next rng
ActiveSheet.Protect
End Sub
Danke im voraus.