I am trying to write a code in a change event in a worksheet. In the code I
need to unprotect the sheet and then protect the sheet when it is done. I
called a procedure in a module.

Sub protectsheet()
ActiveSheet.Protect
End Sub
Sub unprotectsheet()
ActiveSheet.Unprotect
End Sub

When the change event procedure ran it stopped working. I tried removing
all the code and did a simple msgbox("") and that didn't work either. What
do I need to do to unprotect and protect the sheet to run the procedure?

Also, how do I get the change event to execute again?