'試試下面的代碼看看能不能滿足你的要求？
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)
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)
21_963_新建(&N)...
22_1017_返回(&B)
22_1018_向前(&F)
22_1019_停止當前跳轉(&S)
22_1020_刷新當前頁(&R)
22_1016_開始頁(&S)
22_1922_搜索 Web(&W)
22_30176_收藏夾
22_30328_前往(&G)
22_1023_只顯示“Web”工具欄(&S)
22_1740_地址(&A):
23_1031_藝術字(&W)...
23_2094_編輯文字(&X)...
23_1606_藝術字庫(&W)
23_3249_對象(&O)...
23_1058_藝術字形狀(&W)
23_688_自由旋轉(&T)
23_1404_文字環繞(&T)
23_1063_藝術字字母高度相同(&W)
23_1061_藝術字豎排文字(&W)
23_1059_藝術字對齊方式(&W)
23_1060_藝術字字符間距(&W)
24_1374_設置/取消三維效果(&3)
24_1375_下俯(&T)
24_1376_上翹(&T)
24_1377_左偏(&T)
24_1378_右偏(&T)
24_1379_深度(&D)
24_1380_方向(&D)
24_1382_照明角度(&L)
24_1383_表面效果(&S)
24_1694_三維顏色(&3)
25_2175_設置/取消陰影(&S)
25_1068_略向上移(&N)
25_1069_略向下移(&N)
25_1070_略向左移(&N)
25_1071_略向右移(&N)
25_1693_陰影顏色(&S)
26_2619_剪輯庫(&P)...

總結

以上是生活随笔為你收集整理的VBA控制菜单栏上的菜单（如页面设置、打印）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。