积极答复者
excel2013禁止单元格复制黏贴

问题
-
技术问题描述:
excel2013版VBA代码报错
问题出现环境(软件/硬件):
excel2013版
问题重现步骤:1.打开excel2013,找到“开发工具”,打开“visual basic”2.输入一下代码。3.保存关闭。重新打开后弹出调试错误。Private Sub Workbook_Open()With Application'屏蔽常用工具栏剪切、复制、粘贴、保存.CommandBars(3).Controls("剪切(&T)").Enabled = False.CommandBars(3).Controls("复制(&C)").Enabled = False.CommandBars(3).Controls("粘贴(&P)").Enabled = False'屏蔽单元格右键菜单中的剪切、复制、粘贴命令.CommandBars("Cell").Controls("剪切(&T)").Enabled = False.CommandBars("Cell").Controls("复制(&C)").Enabled = False.CommandBars("Cell").Controls("粘贴(&P)").Enabled = False'屏蔽编辑菜单中的剪切、复制、粘贴命令.CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False.CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False.CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False'屏蔽键盘剪切、复制、粘贴键.OnKey "^x", "".OnKey "^c", "".OnKey "^v", ""End WithEnd Sub如果去掉红色三行代码,其余代码可以运行。
初步分析:excel2013版取消了上述红色标注行的功能。
答案
-
这是2003版的代码,2013版已经不用那种菜单了,代码是要报错了呀。
在单元格里横行的小妖同学
QQ:76332468
http://pure-shadow.blog.sohu.com/
专业方向:EXCEL操作
- 已建议为答案 Emi ZhangMicrosoft contingent staff, Moderator 2016年8月31日 6:14
- 已标记为答案 Emi ZhangMicrosoft contingent staff, Moderator 2016年9月2日 9:56
全部回复
-
您好,
关于宏应用的这类问题我建议您去Office开发论坛提问:
https://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev
在适合的地方发帖您将得到其他用户和更专业的人员与您分享他们的经验并且互动学习。
但是请注意,此论坛为英文论坛您需要使用英文发帖。
微软一站式示例脚本库: http://blogs.technet.com/b/onescript
- 已编辑 Emi ZhangMicrosoft contingent staff, Moderator 2016年8月24日 8:19
-
这是2003版的代码,2013版已经不用那种菜单了,代码是要报错了呀。
在单元格里横行的小妖同学
QQ:76332468
http://pure-shadow.blog.sohu.com/
专业方向:EXCEL操作
- 已建议为答案 Emi ZhangMicrosoft contingent staff, Moderator 2016年8月31日 6:14
- 已标记为答案 Emi ZhangMicrosoft contingent staff, Moderator 2016年9月2日 9:56