ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2306|回复: 12

[求助] 屏蔽右键代码求完善

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-1-23 14:52 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:UI界面定制
本帖最后由 jacksc 于 2014-1-23 14:59 编辑

各位老师:在EH上得到 jlhao 老师在一篇回复粘 中的提示,整理了如下代码,现还有两个问题急需解决,请帮忙看看,谢谢!
1、2010版 的“粘贴选项”多了图标,不知如何删除;“选择性粘贴”多了二级下拉,也不知如何删除;
2、目前此代码运行后,对所有工作簿都有效,想改为只针对当前工作簿有效

Private Sub workbook_open()
On Error Resume Next
    With Application
        .CommandBars("Cell").Controls("选择性粘贴(V)...").Delete
        .CommandBars("Cell").Controls("粘贴(P)").Delete    '2007版
        .CommandBars("Cell").Controls("插入批注(M)").Delete
        .CommandBars("Cell").Controls("从下拉列表中选择(K)...").Delete
        .CommandBars("Cell").Controls("显示拼音字段(S)").Delete
        .CommandBars("Cell").Controls("定义名称(A)...").Delete    '2010版
        .CommandBars("Cell").Controls("命名单元格区域(R)...").Delete
        .CommandBars("Cell").Controls("超链接(I)...").Delete      '2010版
        .CommandBars("Cell").Controls("超链接(H)...").Delete
    End With
End Sub

点评

知识树内容索引:11楼,通过类模块屏蔽右键菜单  发表于 2014-1-25 23:12

TA的精华主题

TA的得分主题

发表于 2014-1-23 15:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
在工作簿退出事件中恢复右键功能。reset

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-23 17:07 | 显示全部楼层
蓝桥玄霜 发表于 2014-1-23 15:56
在工作簿退出事件中恢复右键功能。reset

老师:用下面代码只有本表页关掉时才起作用,我的意思是我操作这个工作簿时,右键自定义设置生效,当切换到其他工作簿时,右键自定义设置失效,该如何变化呢?谢谢!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.CommandBars("cell").Reset
End Sub

TA的精华主题

TA的得分主题

发表于 2014-1-24 10:23 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-25 08:52 | 显示全部楼层
蓝桥玄霜 发表于 2014-1-24 10:23
用Private Sub Workbook_Deactivate()事件试试看。

老师:在你的指导下,切换到其他工作簿,右键功能恢复了,但再切换回本工作簿时,想隐藏的右键功能也可以使用了,需在哪个事件中我再设?谢谢!

TA的精华主题

TA的得分主题

发表于 2014-1-25 09:11 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-25 09:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
蓝桥玄霜 发表于 2014-1-25 09:11
Private Sub Workbook_Activate()

test.rar (11.17 KB, 下载次数: 7)

老师:详见附件,我是否设得不对,没达到想要的效果,请帮忙看看。

TA的精华主题

TA的得分主题

发表于 2014-1-25 10:11 | 显示全部楼层
ThisWorkBook
  1. Private Sub Workbook_Activate()
  2.     屏蔽右键
  3. End Sub
  4. Private Sub workbook_open()
  5. Application.ScreenUpdating = False            '关闭屏幕闪烁
  6. 屏蔽右键
  7. Sheet3.[D6] = Date
  8.     MsgBox "欢迎使用本模板,当前日期是: " & [D6].Value & " 将生成《" & [C3].Value & "》,“是”请点“确定”,将为你切换到《sheet1》表页;“否”请点“?”,将停留在本表页以便你修改日期;"
  9.     Sheet2.Activate
  10.     ActiveSheet.[B3].Select
  11.     Application.ScreenUpdating = True            '打开屏幕闪烁
  12. End Sub
  13. Private Sub Workbook_Deactivate()
  14.     Application.CommandBars("cell").Reset
  15. End Sub
  16. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  17.     Application.CommandBars("cell").Reset
  18. End Sub
复制代码
Module中
  1. Sub 屏蔽右键()
  2. On Error Resume Next
  3.      With Application
  4.          .CommandBars("Cell").Controls("选择性粘贴(V)...").Delete
  5.          .CommandBars("Cell").Controls("粘贴(P)").Delete    '2007版
  6.          .CommandBars("Cell").Controls("插入批注(M)").Delete
  7.          .CommandBars("Cell").Controls("从下拉列表中选择(K)...").Delete
  8.          .CommandBars("Cell").Controls("显示拼音字段(S)").Delete
  9.          .CommandBars("Cell").Controls("定义名称(A)...").Delete    '2010版
  10.          .CommandBars("Cell").Controls("命名单元格区域(R)...").Delete
  11.          .CommandBars("Cell").Controls("超链接(I)...").Delete      '2010版
  12.          .CommandBars("Cell").Controls("超链接(H)...").Delete
  13.      End With
  14. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-25 10:33 | 显示全部楼层
loquat 发表于 2014-1-25 10:11
ThisWorkBookModule中

老师:谢谢!现有两个地主需完善,请帮我看看,谢谢!
1、2010版 的“粘贴选项”多了图标,不知如何删除;“选择性粘贴”多了二级下拉,也不知如何删除;
2、工具栏 上的“粘贴”与“选择性粘贴”也要删掉或关闭,达到不可操作的目的。

TA的精华主题

TA的得分主题

发表于 2014-1-25 21:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
2.请你看看RibbonX
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:36 , Processed in 0.054558 second(s), 15 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表