Gruppe
Allgemein
Problem
Alle Zellen mit farbigem Hintergrund sollen als Eingabezellen nicht geschützt, alle anderen geschützt werden.
StandardModule: Modul1
Sub SetProtect()
Dim rng As Range
Cells.Locked = True
For Each rng In ActiveSheet.UsedRange.Cells
If Not rng.Interior.ColorIndex = 6 Then
rng.Locked = False
End If
Next rng
ActiveSheet.Protect
End Sub