Protect Code

[Guest]

If I protect my vba code the workbook_Open functions do not work. Neither
does Before_Close() functions. Any ideas?

 

[JW]

What is the code in your subs? I've never encountered that problem
before.

 

[Guest]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'this builds the menus that are added when this workbook is loaded
Application.CommandBars("Worksheet Menu Bar").Controls("&Activity").Delete
End Sub

Private Sub Workbook_Open()
Dim Menu1 As CommandBarControl
Dim MainMenuBar As CommandBar
Dim CustomMenu As CommandBarControl
On Error Resume Next

Application.CommandBars("Worksheet Menu Bar").Controls("&Activity").Delete
On Error GoTo 0
Set MainMenuBar = Application.CommandBars("Worksheet Menu Bar")
HelpMenu = MainMenuBar.Controls("Help").Index
Set CustomMenu = MainMenuBar.Controls.Add(Type:=msoControlPopup,
Before:=HelpMenu)
CustomMenu.Caption = "&Activity"
With CustomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Assign xxxxx"
.OnAction = "CategorizeNewInventory"
End With
'....etc.....
End Sub