Lösch-Makro trotz Passwort!
12.08.2005 11:37:27
Thomas
Ich habe das Arbeitsblatt mit einem Passwort geschützt, einige zellen (deren Inhalt gelöscht werden soll) sind nicht gesperrt (Eingabe-Felder), einige sind zusätzlich verbunden!
Ich habe das folgende Mokro, welches gut klappt ohne Passwort! Wenn ich ein Blattschutz mit Passwort aktiviere bleibt er bei "rngAct.MergeCells = False" stehen und sagt Fehler!?
Dim rngAct As Range
For Each rngAct In ActiveSheet.UsedRange
If rngAct.Locked = False Then
'Zelle ist nicht gesperrt
If rngAct.MergeCells Then
'verbundene Zellen löschen
'Die verbundenen Zellen werden selektiert und getrennt,
'dann einzeln gelöscht und anschließend wieder verbunden.
rngAct.Select
rngAct.MergeCells = False
Set selAct = Selection
For Each cell In selAct
cell.ClearContents
Next
selAct.MergeCells = True
Else
'einzelne Zelle löschen
rngAct.ClearContents
End If
End If
Next rngAct
Kann mir jemand helfen!?
Danke im Voraus!