![]() |
Protect Code
If I protect my vba code the workbook_Open functions do not work. Neither
does Before_Close() functions. Any ideas? |
Protect Code
What is the code in your subs? I've never encountered that problem
before. Mike H. wrote: If I protect my vba code the workbook_Open functions do not work. Neither does Before_Close() functions. Any ideas? |
Protect Code
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, Befo=HelpMenu) CustomMenu.Caption = "&Activity" With CustomMenu.Controls.Add(Type:=msoControlButton) .Caption = "Assign xxxxx" .OnAction = "CategorizeNewInventory" End With '....etc..... End Sub |
All times are GMT +1. The time now is 01:58 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com