one time use of cells

[dharsana]

I WANT TO HAVE A WORKBOOK/WORKSHEET WHERE THE USER CAN ENTER ONLY ONE TIME IN A CELL AND AFTER THAT IT GETS LOCKED ,SO THAT NO ONE ELSE CAN MODIFY THE CELL.HOW TO ACHIEVE THIS ?
THANKING U
dharsana

 

[Tom Urtis]

See if this does what you want. Right click on your sheet tab, left click on View Code, and paste this into the module.

Modify for range of interest. Also, before you insert this code, unlock the cells in your range (in this case A1:B10), so they can accept their first and only entry.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Or Target.Locked = True Then Exit Sub
ActiveSheet.Unprotect "Password"
Target.Locked = True
ActiveSheet.Protect "Password"
End Sub

Any help???