Not able to execute the macro when macro is password protected

[nayans22]

I have a piece of excel macro. When I protect my macro with a password, I am not able to run the macro.
It is throwing the error like "Run time error 1004. 'SaveAs' of object '_workbook' failed"
I have a save as method written inside the macro, may be due to this method it is throwing error. Please help in resolving this.

Thank you

[zbor]

You can unprotect it and then protect it again within same code.

Sub your_macro()

'your code here
    ActiveSheet.unprotect "password" 
    ActiveWorkbook.unprotect "password" 
'your code here
    ActiveSheet.protect "password", DrawingObjects:=True, Contents:=True, Scenarios:=True 
    ActiveWorkbook.protect "password", Structure:=True, Windows:=False 

End Sub