it is possible to lock entire ROW

For Locking and unlocking, select the Range then right click. select the Format cells option from menu. Under the menu goto Protection Tab.

i am trying to used a VBA

Sub ProtectTheSheet()
Dim chCell As Range
Dim chRng As Range

'Clear the default status
Cells.Locked = False

'replace abcd with your password in all locations.

ActiveSheet.Unprotect "abcd"
'Applied only to column A
Range("A:A").Locked = True
ActiveSheet.Protect "abcd"

End Sub