Gruppe
Allgemein
Bereich
Blattschutz
Thema
Nur nichtfarbige Zellen schützen
Problem
Alle Zellen mit farbigem Hintergrund sollen als Eingabezellen nicht geschützt, alle anderen geschützt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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