• 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)  
      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)...    
  • 相关阅读:
    laravel 博客
    VSSより、指定したファイルを取得するマクロ(パス入り)
    使用SQLPlus连接Oracle实例
    SSH-Struts第四弹:Struts2学习过程中遇到的问题
    SSH-Struts第三弹:传智播客视频教程第一天上午的笔记
    Prim和Kruskal求最小生成树
    tarjan算法求强连通分量
    shutdown TCP 端口445
    Eclipse导出apk
    [模板]tarjan求强连通分量
  • 原文地址:https://www.cnblogs.com/yunbo/p/1614912.html
Copyright © 2020-2023  润新知