Just wondering if any suggestions exist for why this code, once executed, leaves the sheet not requiring a password to remove the protection:

Sub ProtectOn()

ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect Password:="test"
End Sub

So the sheet ends up protected, but all a user has to do is access the Tools>Protection>Unprotect Sheet menu to take the sheet protection off - the " ActiveSheet.Protect Password:="test" " statement is not executing. I'm calling this procedure from one other code initiated procedure in Excel 2003. Any advice or guidance anyone would have would be greatly appreciated!

Thanks,
Trish