protect cells but allow to enter data but not remove once entered

[hugrl]

set up spreadsheet for holidays but need to protect cells but allow a user to
enter a number in a cell but not allow to remove once entered

 

[Dave Peterson]

This sounds like a bad idea to me. How would you ever correct typing mistakes?

 

[hugrl]

So Admin can edit & delete wrong data entered & who entered data

 

[Gord Dibben]

This sheet event code will lock cells in columns B and C and enter the login
username in column C when data is entered in column B

Note: first unlock all cells in columns B and C

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 2 Then
ActiveSheet.Unprotect Password:="justme"
If Target.Value <> "" Then
Target.Locked = True
With Target.Offset(0, 1)
.Value = Environ("Username")
.Locked = True
End With
End If
End If
enditall:
Application.EnableEvents = True
ActiveSheet.Protect Password:="justme"
End Sub

To hide the code and password from prying eyes, lock the VBA Project from
viewing.


Gord Dibben MS Excel MVP