ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Protect Code (https://www.excelbanter.com/excel-programming/398241-protect-code.html)

Mike H.

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

JW[_2_]

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?



Mike H.

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