Good Evening,
I am working on a spreadsheet for users to have the ability to enter data but not remove it once it's entered. They will need to be able to enter data into multiple cells. The current code below is what I have started with, but it is not working. Any help would be greatly appreciated.

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