Protect data in cells after entered

J

Jeff Hall

Need a worksheet where data can be entered but, once it is entered can not be
changed. The purpose of this is for accountability. Example: If you enter
a customers name on a worksheet and an amount of money they owe you should
not be able to delete/dhange that data in the future but only add additional
data to the worksheet.
 
R

Ron de Bruin

Hi Jeff

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 in all cells in the worksheet
select the cells and press Ctrl-1 and uncheck locked on the
protection tab
 
Top