ActiveWorkbook.Protect issue

[tony.reynolds]

I have below code that works ok but if i run it twice it seems to toggle protect and unprotect.... leaving the workbook unprotected....!

Is there a way i can stop this?

Sub HideChart()
ActiveWorkbook.Unprotect (1234)
Sheets("Chart").Visible = False
ActiveWorkbook.Protect (1234)
End Sub

 

[tony.reynolds]

In fact if I F8 through this it toggles protect on and off!!!

Is this my Officeintallation problem???

Sub Test ()
ActiveWorkbook.Protect (1234)
ActiveWorkbook.Protect (1234)
End Sub

 

[ZVI]

Password should be string:

Sub HideChart()
  ActiveWorkbook.Unprotect "1234"
  Sheets("Chart").Visible = False
  ActiveWorkbook.Protect "1234"
End Sub