Zellschutz aufheben per Makro (VBA)
Ramon
ich werde gleich wahnsinnig.
Ich habe ein Tabellenblatt, bei dem alle Zellen gesperrt sind. Nun möchte ich
einen Bereich markieren können und in diesem markierten Bereich alle leeren
Zellen per Knopdruck entsperren können.
Dazu habe ich das folgende simple Makro geschrieben:
Sub leere_entsperren()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = "" Then Zelle.Locked = False
Next Zelle
End Sub
kann nicht festgelegt werden."
Warum bloß? - Es gibt keine verbundenen Zellen und es besteht kein Blattschutz. Was mache
ich falsch?
Danke für Hilfe,
Gruß,
Ramon