Assuming your sheet  is protected  with a password, and you know the
password, you only need add the following code to your procedure.

ActiveSheet.Unprotect "Password"
Do Stuff
ActiveSheet.Protect "Password"