Zellen je nach Farbe sperren

[Ralf1]

Hallo zusammen
Ich bin ganz neu hier im Forum, da ich hier folgendes Makro entdeckt habe, mit dem man Zellen je nach Farbe automatisch sperren kann:
Es funktioniert wunderbar wenn keine Zellen miteinander verbunden sind.
Meine Frage:

Kann man es umschreiben damit auch miteinander verbundene Zellen erkannt werden?

Ich hoffe mir kann jemand helfen.



Sub ZellenJeNachFarbeSperren()
Dim Zelle As Range, Rng As Range, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Set Rng = ws.UsedRange
ws.Unprotect Password:="hallo"
 For Each Zelle In Rng
 If Zelle.Interior.ColorIndex = 44 Or Zelle.Interior.ColorIndex = 6 Then '44 = orange 6 = gelb
 Zelle.Locked = False
 Else
 Zelle.Locked = True
 End If
 Next Zelle
Next ws
For Each ws In ThisWorkbook.Worksheets
 ws.Protect Password:="hallo"
 ws.EnableSelection = xlUnlockedCells
Next ws
End Sub

[schauan]

Hallöchen,

Du kannst das im Prinzip so lösen:

Range("A1").MergeArea.Locked = False

Dabei ist es unerheblich, ob A1 verbunden ist oder nicht.