Solved: Inserting data into the column and maintain it locked

[marreco]

Hi.
how can I insert data in column 'A' and keep it locked automatically?
the code below to insert the data in column 'A' I need mater ONLY column A locked, but this should be done automatically because kok code vai desbloque it to enter data.
[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row, 1).Value = Date
End Sub[/VBA]