Excel VBA - markierte Zellen Sperren

[Thorrior]

Hallo zusammen,

 

ich möchte einzelne Zeilen in einem Excel-Sheet per Makro sperren.

In der Spalte E der aktuellen Zeile wird ein Text eingegeben. Wenn ich dann das Makro starte, wird zunächst überprüft, ob in der aktuellen Zeile und Spalte E Text steht. Ist dies der Fall, wird in Spalte Q der aktiven Zeile das heutige Datum eingetragen. Anschließend soll nur diese Zeile für weitere Eingaben gesperrt werden. Alle Zeilen darüber und darunter sollen weiterhin editierbar bleiben.

Mit folgendem Code funktioniert das leider nur bedingt, denn die aktuelle Zeile wird zwar gesperrt und die Zeilen darunter sind weiterhin editierbar. Allerdings werden alle Zeilen darüber ebenfalls gesperrt. Und genau das soll verhindert werden.

Hat jemand eine Idee, wie ich das bewerkstelligen kann?

Sub Sperren1()

ActiveSheet.Unprotect Password:="1234"

If Range("E" & ActiveCell.Row).Value > 0 Then

Range("Q" & ActiveCell.Row).Value = Date:

ActiveCell.EntireRow.Locked = True

ActiveSheet.Protect Password:="1234"

End If

End Sub

[allesweg]

ersetze mal

Range("Q" & ActiveCell.Row).Value = Date:

durch

Cell(Q,ActiveCell.Row).Value = Date