vba控制菜单栏上的菜单

《vba控制菜单栏上的菜单》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VBA控制菜单栏上的菜单Subtest()'视图工具栏中，各种工具对应的英文名称'worksheetmenubar表示工作表菜单栏Application.CommandBars("worksheetmenubar").Enabled=false'formatting表示格式工具栏Application.CommandBars("Formatting").Visible=False'standard表示常用工具栏Application.CommandBars("Standard").Visible=falsae'drawing表示绘图工具栏Application.CommandBars("Dr

2、awing").Visible=False'controltoolbox表示控件工具箱Application.CommandBars("ControlToolbox").Visible=False'reviewing表示审阅工具Application.CommandBars("Reviewing").Visible=FalseApplication.CommandBars("金山快译").Visible=False'dispalyformulabar表示编辑栏Application.DisplayFormulaBar=FalseApplication.CommandBars("VisualB

3、asic").Visible=FalseApplication.CommandBars("Web").Visible=FalseApplication.CommandBars("Protection").Visible=FalseApplication.CommandBars("Borders").Visible=FalseApplication.CommandBars("Forms").Visible=FalseApplication.CommandBars("FormulaAuditing").Visible=FalseApplication.CommandBars("WatchWind

4、ow").Visible=False'pivottable表示数据透视表Application.CommandBars("PivotTable").Visible=False'chart表示图表Application.CommandBars("Chart").Visible=False'picture表示图片Application.CommandBars("Picture").Visible=FalseApplication.CommandBars("ExitDesignMode").Visible=False'externaldata表示外部数据Application.CommandBar

5、s("ExternalData").Visible=False'ply表示工作表标签Application.CommandBars("Ply").Enabled=FalseForEachcbarInCommandBars  Debug.Printcbar.Name,cbar.NameLocal,cbar.VisibleNextEndSub  Private Sub Test()      Dim i As Long 8     Dim wordApp As New Word.Application      Dim CBar As Office.CommandBar      Dim CCt

6、l As Office.CommandBarControl            Set CBar = wordApp.CommandBars(27)  'Bar Index      For Each CCtl In CBar.Controls          If CCtl.Id = 2041 Or CCtl.Id = 2604 Then  '2041 Control ID              CCtl.Enabled = False          end if      Next            Set CBar = Nothing      Set CCtl = N

7、othing      Set wordApp = Nothing  End Sub  这是屏蔽的方法，至于你要屏蔽的 Bar ID 是多少 Control ID 是多少看下面的    Word菜单一览表      CommandBar ID _ Control ID _ Control Caption    Text11_2520_新建空白文档(&B)  1_23_打开(&O)...  1_3_保存(&S)