作者：绿色风
分类：
时间：2022-08-17
浏览：153
楼主
wise |
Q：如何屏蔽单元格右键菜单中的粘贴命令?
A：ALT+F11→插入模块→在模块中输入如下代码：
- Sub 遮蔽粘贴()
- Application.CommandBars("Cell").Controls("粘贴(&P)").Enabled = False
- End Sub
运行该代码后，右键中的粘贴字体颜色为灰色并且无法使用粘贴功能。 |
2楼
chrisfang |
Q：如何禁止鼠标右键的拷贝粘贴功能？
A：要在指定的目标单元格区域中禁止使用鼠标右键的拷贝粘贴功能，可参考以下代码：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim officeCtrl As Office.CommandBarControl
- If Not Intersect(Target, Range("$A$1:$Z$100")) Is Nothing Then '指定目标区域为A1:Z100
- For Each officeCtrl In Application.CommandBars.FindControls(ID:=19) '禁止拷贝
- officeCtrl.Enabled = False
- Next officeCtrl
-
- For Each officeCtrl In Application.CommandBars.FindControls(ID:=22) '禁止粘贴
- officeCtrl.Enabled = False
- Next officeCtrl
- Else
- For Each officeCtrl In Application.CommandBars.FindControls(ID:=19) '允许拷贝
- officeCtrl.Enabled = True
- Next officeCtrl
-
- For Each officeCtrl In Application.CommandBars.FindControls(ID:=22) '允许粘贴
- officeCtrl.Enabled = True
- Next officeCtrl
- End If
- End Sub
|
3楼
wnianzhong |
这个要好好学习一下了,谢谢! |
4楼
水星钓鱼 |
学习一下 |
5楼
nmghyh |
学习 谢谢 |
6楼
gouweicao78 |
在Excel中禁止鼠标右键代码，学习。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一