locking column a only

i am using this vba code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Now
End If
Application.EnableEvents = True
End Sub

everytime i lock the column a by using the protect sheet, the vba does not work or debugs.

is there a way for me to lock the cell in column a when data is inputted or changed in column b?

i am using date and time for column a

http://office.microsoft.com/en-us/ex...CL100570551033
Basically, you need to unlock the cells you want to edit before protecting the sheet.

First of all unlock all the cells from the Format menu -> Cells -> Protection & uncheck Locked.

Then select all the cells that currently need to be locked, eg A2:A351and lock them using the same method as above but checking Locked this time.

Then change your code with this

Please Login or Register  to view this content.

Try to put these lines in

Please Login or Register  to view this content.

it worked for wonderfully my own drive.

but is showing error when i put it in a shared drive.

could it be that i did something wrong?

Please Login or Register  to view this content.