Protect data in cells after entered

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top