in meiner Excelliste gibt es zwei Farben, gelb und blau.
Alle gelben Zellen sollen einen Schreibschutz bekommen, und alle blauen Zellen dürfen beschrieben werden.
Gibt es da eine gute VBA Lösung dafür?
Vielen Dank für eure Hilfe!
Sub t()
Dim rng As Range
With ActiveSheet
.Unprotect
.Cells.Locked = True
For Each rng In .UsedRange.Cells
If rng.Interior.Color = 15773696 Then _
rng.Locked = False
Next rng
.Protect
End With
End Sub