Как вы можете динамически блокировать ряды ячеек в Excel?

Question

Итак, я знаю, что можно отформатировать ячейки для блокировки, а затем защитить лист, чтобы предотвратить перезапись этих данных. Но я ищу возможность динамически блокировать ячейки на листе. После некоторого поиска в Google я попытался адаптировать приведенный ниже блок кода под свои нужды. Намерение состоит в том, что если столбец A имеет значение, остальная часть строки будет заблокирована, поэтому никто не сможет перезаписать остальную часть строки.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(ActiveSheet.Cells(18, 1), Target) Is Not Nothing Then
        If ActiveSheet.Cells(18, 1).Text = "X" Then
            ActiveSheet.Range(Cells(18, 2), Cells(18, 20)).Locked = True
        Else
            ActiveSheet.Range(Cells(18, 2), Cells(18, 20)).Locked = False
        End If
    End If
End Sub

Любая помощь будет высоко ценится, а также советы по кратко применяя это к каждой строке в листе.