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
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)
图片编辑器app11_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)