VBA控制菜单栏上的菜单VIP免费

1 VBA 控制菜单栏上的菜单 Sub test() '视图工具栏中，各种工具对应的英文名称 'worksheet menu bar 表示工作表菜单栏 Application.CommandBars("worksheet menu bar").Enabled = false 'formatting 表示格式工具栏 Application.CommandBars("Formatting").Visible = False 'standard 表示常用工具栏 Application.CommandBars("Standard").Visible = falsae 'drawing 表示绘图工具栏 Application.CommandBars("Drawing").Visible = False 'control toolbox 表示控件工具箱 Application.CommandBars("Control Toolbox").Visible = False 'reviewing 表示审阅工具 Application.CommandBars("Reviewing").Visible = False Application.CommandBars("金山快译").Visible = False 'dispalyformulabar 表示编辑栏 Application.DisplayFormulaBar = False Application.CommandBars("Visual Basic").Visible = False Application.CommandBars("Web").Visible = False Application.CommandBars("Protection").Visible = False Application.CommandBars("Borders").Visible = False Application.CommandBars("Forms").Visible = False Application.CommandBars("Formula Auditing").Visible = False Application.CommandBars("Watch Window").Visible = False 'pivottable 表示数据透视表 Application.CommandBars("PivotTable").Visible = False 'chart 表示图表 Application.CommandBars("Chart").Visible = False 'picture 表示图片 Application.CommandBars("Picture").Visible = False Application.CommandBars("Exit Design Mode").Visible = False 'external data 表示外部数据 Application.CommandBars("External Data").Visible = False 'ply 表示工作表标签 Application.CommandBars("Ply").Enabled = False For Each cbar In CommandBars Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible Next End Sub Private Sub Test() Dim i As Long 2 Dim wordApp As New Word.Application Dim CBar As Office.CommandBar Dim CCtl As Office.CommandBarControl Set CBar = wordApp.CommandBars(27) 'Bar Index For Each CCtl In CBar.Controls If CCtl.Id = 2041 Or CCtl.Id = 2604...