VBA控制菜单栏上的菜单.doc

《VBA控制菜单栏上的菜单.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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

2、wing表示绘图工具栏Application.CommandBars("Drawing").Visible=False'controltoolbox表示控件工具箱Application.CommandBars("ControlToolbox").Visible=False'reviewing表示审阅工具Application.CommandBars("Reviewing").Visible=FalseApplication.CommandBars("金山快译").Visible=False'dispalyformul

3、abar表示编辑栏Application.DisplayFormulaBar=FalseApplication.CommandBars("VisualBasic").Visible=FalseApplication.CommandBars("Web").Visible=FalseApplication.CommandBars("Protection").Visible=FalseApplication.CommandBars("Borders").Visible=FalseApplication.CommandBar

4、s("Forms").Visible=FalseApplication.CommandBars("FormulaAuditing").Visible=FalseApplication.CommandBars("WatchWindow").Visible=False'pivottable表示数据透视表Application.CommandBars("PivotTable").Visible=False'chart表示图表Application.CommandBars("Chart").Visible=False'pic

5、ture表示图片Application.CommandBars("Picture").Visible=FalseApplication.CommandBars("ExitDesignMode").Visible=False'externaldata表示外部数据Application.CommandBars("ExternalData").Visible=False'ply表示工作表标签Application.CommandBars("Ply").Enabled=FalseForEachcbarInCommandBar

6、s  Debug.Printcbar.Name,cbar.NameLocal,cbar.VisibleNextEndSub  Private Sub Test()      Dim i As Long      Dim wordApp As New Word.Application      Dim CBar As Office.CommandBar      Dim CCtl As Office.CommandBarControl            Set CBar = wordApp.CommandBars(

7、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 = Nothing      Set wordApp = Nothing 

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