Locked Eigenschaft bei verbundenen Zellen
Christoph
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
Grüße, Christoph
Anzeige