How to lock cell

[apinan1965]

Dear Sir,
I'm using excel for a while, now I would like to seek your help
I create excel sheet for my colleague to input data (only one cell) ,
what I want to do is how to lock cell immediately after they hit enter
and cannot do anything just save only (not save as).

Thank you very much for your kind to help.

Regards,

Apinan

 

[machopicho]

You can try this code:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
If Target <> "" Then
Target.Locked = True
End If
End Sub

but it works only if worksheet is protect.

 

[apinan1965]

Thank you very much for your help, do we have any method to do that by not to protect sheet.