Sub LockIT()
If activeworkbook.protectcontents = False then activeworkbook.protect "mypass"
end Sub

Sub UnlockIT()
if activeworkbook.protectcontents = true then activeworkbook.unprotect "mypass"
End Sub