nachdem mir eben schonmal wunderbar geholfen wurde, wende ich mich mit einem anderen Problem an euch. Szenario schaut wie folgt aus:
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Die Gesamte Mappe soll gesperrt werden, in einzelnen Arbeitsblättern gibt es jedoch Zellen die bearbeitet werden sollen (daher nicht gesperrt). Dazu habe ich folgendes Makro geschrieben:
Sub ZellenSchutz()
Dim Zelle As Range
Dim Blatt As Object
Application.ScreenUpdating = False
For Each Blatt In Worksheets
If Blatt.Visible Then
Blatt.Protect
For Each Zelle In Range("A1:AX1000")
If Zelle.Interior.ColorIndex = 36 Or Zelle.Interior.ColorIndex = 44 Then
Zelle.Parent.Unprotect
' Zelle.MergeCells = False ' damit läuft es, die verbundenen Zellen _
werden jedoch zerstört
Zelle.Locked = False
' Zelle.MergeCells = True
Zelle.Parent.Protect
End If
Next Zelle
End If
Next Blatt
Application.ScreenUpdating = True
End Sub
Klappt soweit auch alles wunderbar. Jetzt sind in den Arbeitblättern aber verbundenen Zellen vorhanden, auf die ich nicht verzichten möchte (Layout usw.). Sobald das Makro nun an eine verbundene Zelle kommt, macht die Zeile "Zelle.Locked = False" Probleme weil Sie nicht mit verbundenen Zellen klar kommt. Kann ich das irgendwie umgehen? Habe es schon mit MergeCells probiert, aber das klappt dann nicht so wie ich mir das vorstelle. Wie gesagt die verbundenen Zellen sollen nach dem Makro auch noch da sein. Kann mir da jemand weiterhelfen? Danke schonmal im Vorraus.Grüße, Christoph