Protect data in cells after entered
 

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.

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

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Jeff Hall" <Jeff wrote in message ...
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.