Sprankler,
Copy the code below, right click on the sheet tab, select "View Code" and paste the code in the
window that appears.
HTH,
Bernie
MS Excel MVP
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End Sub