Enabling Macros on a Password Protected XLS

Hello,

Sub Macro2()
' Macro2 Macro
ActiveSheet.Unprotect ("engineroom")
ActiveSheet.Range("$A$2:$N$103").AutoFilter Field:=1, Criteria1:="Front Office"
Call Macro17
ActiveSheet.Protect ("engineroom")

End Sub

If also tried the same sequence by Calling up a separate macro as well.

Sub Macro2()
' Macro2 Macro
Call PW
ActiveSheet.Range("$A$2:$N$103").AutoFilter Field:=1, Criteria1:="Front Office"
Call Macro17
Call PW2

End Sub


---------------

Sub PW()

ActiveSheet.Unprotect ("engineroom")

End Sub

Sub PW2()

ActiveSheet.Protect ("engineroom")

End Sub


I appreciate the help!