080 在菜单栏指定位置添加菜单
除了可以在工作表菜单中添加菜单项外，还可以在工作表菜单栏的指定位置添加菜单，如下面的代码所示。
Sub AddNewMenu()
DimHelpMenu As CommandBarControl
DimNewMenu As CommandBarPopup
WithApplication.CommandBars('Worksheet menu bar')
.Reset
Set HelpMenu = .FindControl(ID:=.Controls('帮助(&H)').ID)
If HelpMenu Is Nothing Then
Set NewMenu = .Controls.Add(Type:=msoControlPopup)
Else
Set NewMenu = .Controls.Add(Type:=msoControlPopup，_
Before:=HelpMenu.Index)
End If
With NewMenu
.Caption = '统计(&S)'
With .Controls.Add(Type:=msoControlButton)
.Caption = '输入数据(&D)'
.FaceId = 162
.OnAction = ““
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = '汇总数据(&T)'
.FaceId = 590
.OnAction = ““
End With
End With
EndWith
SetHelpMenu = Nothing
SetNewMenu = Nothing
End Sub
代码解析：
AddNewMenu过程使用Add方法在工作表“帮助”菜单前添加一个标题为“统计”的菜单和两个菜单项。
第6行代码，使用FindControl方法在工作表菜单栏中查找“帮助”菜单。应用于CommandBars对象的FindControl方法返回一个符合指定条件的CommandBarControl对象。语法如下：
expression.FindControl(Type，Id，Tag，Visible，Recursive)
参数expression是必需的，返回一个CommandBars对象。
参数Type是可选的，要查找控件的类型。
参数Id是可选的，要查找控件的标识符。
参数Tag是可选的，要查找控件的标记值。
参数Visible是可选，如果该值为True，那么只查找屏幕上显示的命令栏控件。默认值为False。
参数Recursive是可选的，如果该值为True，那么将在命令栏及其全部弹出式子工具栏中查找。此参数仅应用于CommandBar对象。默认值为False。
如果没有控件符合搜索条件，那么FindControl方法返回Nothing。
第7行到第12行代码，如果工作表菜单栏中存在“帮助”菜单，将“统计”菜单添加到“帮助”菜单之前，否则添加到工作表菜单栏末尾。
第12行到第25行代码，在“统计”菜单中添加两个子菜单并设置其各种属性。运行AddNewMenu过程，将在工作表菜单栏的“帮助”菜单之前添加一个“统计”菜单。
▲081 屏蔽和删除工作表菜单
如果不希望用户使用工作表菜单栏的部分功能，可以把菜单或菜单项屏蔽或删除，如下面的代码所示。
Sub Shibar()
WithApplication.CommandBars('Worksheet menu bar')
.Reset
.Controls('工具(&T)').Controls('宏(&M)').Enabled = False
.Controls('数据(&D)').Delete
EndWith
End Sub
代码解析：
Shibar过程屏蔽“工具”菜单中的“宏”菜单项，删除菜单栏中的“数据”菜单。
第3行代码，使用Reset方法重置工作表菜单栏。
第4行代码，将“宏”菜单项的Enabled属性设置为False，使之无效。
Enabled属性决定命令栏或命令栏控件是否激活，如果将该属性设置为 False，那么该菜单项将无效。
第5行代码，使用Delete方法将“数据”菜单从工作表菜单栏中删除。
Delete方法应用于命令栏或命令栏控件时，从集合中删除指定对象，语法如下：
expression.Delete(Temporary)
参数expression是必需的，返回命令栏或命令栏控件对象之一。
参数Temporary是可选的，设置为True将从当前会话中删除控件，应用程序在下次会话时将再次显示控件。
运行Shibar过程，将屏蔽工作表“工具”菜单中的“宏”菜单项和删除工作表菜单栏中的“数据”菜单。
▲082 改变系统菜单的操作
利用VBA甚至可以改变系统菜单的默认操作，使之达到自定义菜单的效果，如下面的代码所示。
Dim WithEvents Saveas As CommandBarButton
Private Sub Workbook_Open()
SetSaveas = Application.CommandBars('File').Controls('另存为(&A)...')
End Sub
Private Sub Saveas_Click(ByVal Ctrl As Office.CommandBarButton，CancelDefault As Boolean)
CancelDefault= True
MsgBox'本工作簿禁止另存!'
End Sub
代码解析：
第1行代码，在模块级别中使用关键词WithEvents声明变量Saveas是用来响应由CommandBarButton对象触发事件的对象变量。
第2行到第4代码工作簿的Open事件过程，在工作簿打开时将变量Saveas赋值为系统菜单的“另存为”菜单。
因为在声明变量Saveas时使用了关键词WithEvents，不能同时使用New关键词隐式地创建对象，所以在使用变量Saveas之前，必须使用Set语句将变量赋值为一个已有对象。
第5行到第8代码变量Saveas的单击事件过程，改变系统菜单“另存为”的默认操作。
变量Saveas的Click事件在用户单击系统菜单“另存为”时发生，语法如下：
Private Sub CommandBarButton_Click(ByValCtrl As CommandBarButton，
ByVal CancelDefaultAs Boolean)
参数Ctrl是必需的，指示初始化该事件的CommandBarButton控件。
参数CancelDefault是必需的，Boolean类型，如果执行了与CommandBarButton控件关联的默认操作，该值为False。除非其他过程或加载项取消了此操作。
第6、7行代码，将CancelDefault参数设置为True，使单击“另存为”菜单时并不执行默认操作而只显示一个消息框。
将工作簿保存、关闭后，重新打开，单击“另存为”菜单并不执行默认操作，只显示一个消息框。
联系客服
