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

VBA控制菜单栏上的菜单Sub test()视图工具栏中，各种工具对应的英文名称worksheet menu bar表示工作表菜单栏Application.CommandBars(worksheet menu bar).Enabled = falseformatting表示格式工具栏Application.CommandBars(Formatting).Visible = Falsestandard表示常用工具栏Application.CommandBars(Standard).Visible = falsaedrawing表示绘图工具栏Application.CommandBars(Drawing).Visible = Falsecontrol toolbox表示控件工具箱Application.CommandBars(Control Toolbox).Visible = Falsereviewing表示审阅工具Application.CommandBars(Reviewing).Visible = FalseApplication.CommandBars(金山快译).Visible = Falsedispalyformulabar表示编辑栏Application.DisplayFormulaBar = FalseApplication.CommandBars(Visual Basic).Visible = FalseApplication.CommandBars(Web).Visible = FalseApplication.CommandBars(Protection).Visible = FalseApplication.CommandBars(Borders).Visible = FalseApplication.CommandBars(Forms).Visible = FalseApplication.CommandBars(Formula Auditing).Visible = FalseApplication.CommandBars(Watch Window).Visible = Falsepivottable表示数据透视表Application.CommandBars(PivotTable).Visible = Falsechart表示图表Application.CommandBars(Chart).Visible = Falsepicture表示图片Application.CommandBars(Picture).Visible = FalseApplication.CommandBars(Exit Design Mode).Visible = Falseexternal data表示外部数据Application.CommandBars(External Data).Visible = Falseply表示工作表标签Application.CommandBars(Ply).Enabled = FalseFor Each cbar In CommandBars Debug.Print cbar.Name, cbar.NameLocal, cbar.VisibleNextEnd SubPrivate 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(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 End Sub 这是屏蔽的方法，至于你要屏蔽的 Bar ID 是多少 Control ID 是多少看下面的 Word菜单一览表 CommandBar ID _ Control ID _ Control Caption Text11_2520_新建空白文档(&B) 1_23_打开(&O). 1_3_保存(&S) 1_3738_邮件收件人(&M) 1_2521_打印(&P) 1_109_打印预览(&V) 1_4026_中文简繁转换(&R). 1_2566_拼写和语法(&S). 1_21_剪切(&T) 1_19_复制(&C) 1_22_粘贴(&P) 1_108_格式刷(&F) 1_128_无法撤消(&U) 1_129_无法恢复(&R) 1_1576_超级链接(&I). 1_916_“表格和边框”工具栏(&T) 1_333_插入表格(&I). 1_142_插入 Excel 工作表(&I) 1_2872_更改文字方向(&C) 1_204_绘图(&D) 1_3900_显示/隐藏编辑标记(&S) 1_1733_显示比例(&Z): 1_984_Microsoft Word 帮助(&H) 1_1_金山词霸 2_1732_样式(&S): 2_1728_字体(&F): 2_1731_字号(&F): 2_3659_键盘语言(&K) 2_113_加粗(&B) 2_114_倾斜(&I) 2_3962_下划线(&U) 2_3517_字符边框(&C) 2_3518_字符底纹(&C) 2_386_字符缩放(&C) 2_123_两端对齐(&J) 2_122_居中(&C) 2_121_右对齐(&R) 2_2792_分散对齐(&D) 2_1846_从左向右(&L) 2_1847_从右向左(&R) 2_11_编号(&N) 2_12_项目符号(&B) 2_3473_减少缩进量(&D) 2_3472_增加缩进量(&I) 2_401_字体颜色(&F) 3_2059_绘制表格(&W) 3_2060_擦除(&E) 3_1724_边框线型(&B) 3_2622_边框宽度(&B) 3_2628_边框颜色(&B) 3_203_边框(&B) 3_2947_底纹色(&S) 3_3693_表格插入(&T) 3_798_合并单元格(&M) 3_800_拆分单元格(&P). 3_30461_单元格对齐方式(&G) 3_2068_平均分布各行(&N) 3_2067_平均分布各列(&Y) 3_107_表格自动套用格式(&F). 3_2816_隐藏虚框(&G) 3_3157_升序(&A) 3_3158_降序(&C) 3_226_自动求和(&A) 4_3272_数据表单(&D) 4_3124_管理域(&M) 4_213_添加记录(&A) 4_214_删除记录(&D) 4_3157_升序(&A) 4_3158_降序(&C) 4_216_数据库(&D). 4_215_更新域(&U) 4_183_在域中查找(&F) 4_244_主文档(&M) 5_30013_绘图(&R) 5_182_选择对象(&S) 5_688_自由旋转(&T) 5_30177_自选图形(&U) 5_130_直线(&L) 5_243_箭头(&A) 5_1111_矩形(&R) 5_1119_椭圆(&O) 5_139_文本框(&X) 5_318_竖排文本框(&V) 5_1031_艺术字(&W). 5_682_剪贴画(&C). 5_1691_填充颜色(&F) 5_1692_线条颜色(&L) 5_401_字体颜色(&F) 5_692_线型(&L) 5_693_虚线线型(&D) 5_694_箭头样式(&A) 5_394_阴影(&S) 5_339_三维效果(&3) 6_219_编辑框(&E) 6_220_复选框(&C) 6_221_组合框(&C) 6_1607_属性(&R) 6_2059_绘制表格(&W) 6_333_插入表格(&I). 6_3174_图文框(&F) 6_223_显示域底纹(&S) 6_225_保护窗体(&P) 7_178_关闭全屏显示(&C) 8_299_调整页边距(&A) 8_922_关闭图片(&C) 9_186_宏(&M). 9_184_录制新宏(&R). 9_3627_安全性(&S). 9_1695_Visual Basic 编辑器(&V) 9_548_控件工具箱(&O) 9_1605_设计模式(&D) 9_3631_Microsoft 脚本编辑器(&W). 10_2186_停止录制(&R) 10_185_暂停录制(&P) 11_30076_插入合并域 11_30077_插入 Word 域 11_163_显示域/值(&S) 11_154_首记录(&F) 11_155_上一记录(&P) 11_1730_记录(&R). 11_156_下一记录(&N) 11_157_尾记录(&L) 11_246_邮件合并(&R). 11_161_错误检查合并(&E) 11_159_合并文档(&M) 11_160_合并到打印机(&M) 11_245_合并选项(&M). 11_183_在域中查找(&F) 11_162_数据表单(&D) 13_263_Microsoft Excel(&E) 13_267_Microsoft PowerPoint(&P) 13_262_Microsoft Mail(&M) 13_264_Microsoft Access(&A) 13_266_Microsoft Visual FoxPro(&F) 13_269_Microsoft Project(&R) 13_265_Microsoft Schedule+(&S) 13_268_Microsoft Publisher(&B) 14_30423_自动图文集(&A) 14_1554_页码(&P) 14_743_页数(&N) 14_2384_设置页码格式(&F) 14_125_日期(&D) 14_126_时间(&T) 14_247_页面设置(&U). 14_248_隐藏正文(&H) 14_250_链接到前一节(&L) 14_237_显示页眉/页脚(&S) 14_238_前一条页眉(&P) 14_239_下一条页眉(&N) 14_924_关闭(&C) 15_132_升级(&P) 15_133_降级(&D) 15_136_降级为正文(&B) 15_134_上移(&U) 15_135_下移(&M) 15_137_展开(&E) 15_138_折叠(&C) 15_71_显示至标题 1(&1) 15_72_显示至标题 2(&2) 15_73_显示至标题 3(&3) 15_74_显示至标题 4(&4) 15_75_显示至标题 5(&5) 15_76_显示至标题 6(&6) 15_77_显示至标题 7(&7) 15_826_全部(&L) 15_251_只查看首行(&F) 15_252_显示格式(&S) 15_230_主控文档视图(&M) 15_1633_折叠子文档(&C) 15_231_创建子文档(&C) 15_232_删除子文档(&D) 15_233_导入子文档(&I) 15_235_合并子文档(&M) 15_234_拆分子文档(&S) 15_236_保护子文档(&P) 16_2521_打印(&P) 16_172_放大镜(&M) 16_5_单页(&O) 16_177_多页(&M) 16_1733_显示比例(&Z): 16_179_标尺(&R) 16_173_减少一页(&S) 16_1612_全屏显示(&U) 16_923_关闭(&C) 16_124_这是什么？(&T) 17_2520_新建空白文档(&B) 17_23_打开(&O). 17_3_保存(&S) 17_21_剪切(&T) 17_19_复制(&C) 17_22_粘贴(&P) 17_128_无法撤消(&U) 17_11_编号(&N) 17_12_项目符号(&B) 17_14_减少缩进量(&D) 17_15_增加缩进量(&I) 17_333_插入表格(&I). 17_9_分栏(&C). 17_3174_图文框(&F) 17_204_绘图(&D) 17_17_图表(&H) 17_24_信封(&E) 17_2566_拼写和语法(&S). 17_2521_打印(&P) 17_5_单页(&O) 17_7_比例 100%(&Z) 17_6_适于窗口(&F) 18_354_答复发件人(&R) 18_355_全部答复(&L) 18_356_转发(&W) 18_2521_打印(&P) 18_19_复制(&C) 18_357_移动邮件(&M) 18_358_删除邮件(&D) 18_359_项目(&I) 18_360_项目(&I) 18_3271_自动套用格式(&A). 18_340_突出显示(&H) 18_1751_邮件头(&M) 18_1714_文档结构图(&D) 18_119_全部显示(&S) 18_1733_显示比例(&Z): 18_984_Microsoft Word 帮助(&H) 19_2188_邮件收件人(以附件形式)(&A). 19_362_选择姓名(&N). 19_361_检查姓名(&K) 19_2618_属性(&P) 19_3_保存(&S) 19_2521_打印(&P) 19_2566_拼写和语法(&S). 19_21_剪切(&T) 19_19_复制(&C) 19_22_粘贴(&P) 19_108_格式刷(&F) 19_128_无法撤消(&U) 19_129_无法恢复(&R) 19_1576_超级链接(&I). 19_777_文件(&L). 19_8_插入表格(&I). 19_3271_自动套用格式(&A). 19_1751_邮件头(&M) 19_1714_文档结构图(&D) 19_119_全部显示(&S) 19_1733_显示比例(&Z): 19_984_Microsoft Word 帮助(&H) 20_340_突出显示(&H) 20_2805_圆点着重号(&D) 20_714_双删除线(&D) 20_3511_拼音指南(&U). 20_3512_合并字符(&C). 20_3969_带圈字符(&E). 20_54_单倍行距(&S) 20_55_1.5 倍行距(&1) 20_56_2 倍行距(&D) 20_9_分栏(&C). 21_205_自动图文集(&X). 21_30423_自动图文集(&A)