PC-HELP.CZ

Dobrý den,
prosím o radu. Pro někoho asi banalita, ale ve VBA netvořím, jen mám tento kód.
Mám zámek na buňce D1, který se odemkne, pokud jiná buňka A1 obsahuje nějaký text / hodnotu.
Můžete, prosím, poradit, jak automaticky opakovat výše uvedené pro každý další řádek? Děkuji.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Range("D1").Locked = True
ElseIf Target <> "" Then
Range("D1").Locked = False
End If
ActiveSheet.Protect
End Sub