Protect Sheet With Password Using VBA

[Trish]

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

[Bryan Hessey]

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

Hi,

Move the 'Password' up a line, the sheet is already protected and it gets ignored.

hth
---