Need way to protect cell after data entry

  • Thread starter Thread starter Ken
  • Start date Start date
K

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
 
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
 
I ended up combining both methods and adding two lines of
my own to protect only the active cell. It works
perfectly. thanks again.
 
Back
Top