Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then
Unprotect
Target.Locked = True
Protect
End If
End Sub
When a user does try to alter a protected cell, is it possible to display a custom message, rather than the standard protection message from Excel.
ActiveSheet.EnableSelection = xlUnlockedCells