设为首页收藏本站|繁體中文

Excel 技巧网

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 7393|bwin官网地址: 3

[Excel VBA] 怎么使用VBA禁用工作簿内的所有鼠标右键菜单?

[复制链接]
发表于 2011-2-18 00:43:26 | 显示全部楼层 |阅读模式
  • 署名作者: 轩辕轼轲
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品:
  • 适用版本: 2010 2007 2003以前版本 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
    本帖最后由 轩辕轼轲 于 2011-2-18 08:27 编辑

    Q:有时候我们希望能屏蔽掉鼠标的右键菜单,但是技巧的方法无法实现,VBA是否可以做到呢?
    A:我们可以将系统内置的右键菜单的Enable属性设置成False就可以了,实现代码如下:

    第一步:插入一个公共模块,放入下面的代码:
    1. Sub 禁用方法一()
    2.     Dim i As Integer
    3.     For i = 1 To Application.CommandBars.Count
    4.         Application.CommandBars(i).Enabled = False
    5.     Next
    6. End Sub
    7. Sub 恢复方法一()
    8.     Dim i As Integer
    9.     For i = 1 To Application.CommandBars.Count
    10.         Application.CommandBars(i).Enabled = True
    11.     Next
    12. End Sub
    13. Sub 禁用方法二()
    14.     Dim Cmd As CommandBar
    15.     For Each Cmd In Application.CommandBars
    16.         Cmd.Enabled = False
    17.     Next
    18. End Sub
    19. Sub 恢复方法二()
    20.     Dim Cmd As CommandBar
    21.     For Each Cmd In Application.CommandBars
    22.         Cmd.Enabled = True
    23.     Next
    24. End Sub

    复制代码
    第二步:在工作表中创建按钮,并将上述的宏指定给相应的按钮。

    第三步:别忘记在Thisworkbook里面放入下面的代码,用于退出工作簿时让Excel恢复正常。
    1. Private Sub Workbook_Deactivate()
    2.     Call 恢复方法一
    3. End Sub
    复制代码
    屏蔽所有的右键菜单.rar (7.41 KB, 下载次数: 75)

    评分

    参与人数 1魅力值 +5 收起 理由
    + 5
    好东西

    查看全部评分

    发表于 2012-3-24 09:46:22 | 显示全部楼层
    恩,这个是屏蔽所有右键菜单的代码。
    发表于 2018-9-4 10:06:58 | 显示全部楼层
    谢谢分享 下载试一下
    发表于 2019-6-11 22:30:33 | 显示全部楼层
    太厉害了,这个功能好啊
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
    本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
    若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
    会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
    本站特聘法律顾问:沈学律师