Need way to protect cell after data entry

[Ken]

We have several logs that various personnel enter
information into. What I would like to do is protect a
cell only after data is entered into to prevent the data
from getting changed at a later point without
authorization. Is there a simple way to do this without
creating custom forms? Thanks.

Ken

 

[Ron de Bruin]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End Sub

Try this event in a sheet module
First change locked to false to some cells or all cells in the worksheet
select the cells and press Ctrl-1 and uncheck locked on the
protection tab

 

[Ken]

I ended up combining both methods and adding two lines of
my own to protect only the active cell. It works
perfectly. thanks again.