禁止键盘Ctrl+V直接粘贴代码问题

mystic_hjj · 发表于 2019-7-10 09:59

本帖最后由 mystic_hjj 于 2019-7-10 11:28 编辑

从论坛中找到的禁止通过键盘Ctrl+V直接粘贴的代码，为什么把这段代码直接粘贴到新的工作簿中的模块里就不生效了呢？是哪里还要设置吗？代码如下：

Sub Ban_paste()
If MsgBox("请勿直接粘贴", vbOKOnly, "粘贴提醒") = vbYes Then
End If
End Sub
Sub check_version()
'屏蔽CTRL+Break 中断
Application.EnableCancelKey = xlDisabled
Application.OnKey "^{Break}"
End Sub

禁止粘贴不起作用.rar (10.38 KB, 下载次数: 18)

禁止粘贴起作用.rar (9.51 KB, 下载次数: 18)

740688321 · 发表于 2019-7-10 10:59

本帖最后由 740688321 于 2019-7-10 11:03 编辑

看这儿就明白了

740688321 · 发表于 2019-7-10 11:07

？？？一点小截图也传不上来，也许在审核,搞不懂。见宏设置

mystic_hjj · 发表于 2019-7-10 11:14

740688321 发表于 2019-7-10 11:07
？？？一点小截图也传不上来，也许在审核,搞不懂。见宏设置

谢谢回复，不过看不见截图，能否文字描述下？我比较了下两个文件，宏设置都是一样的啊？

mystic_hjj · 发表于 2019-7-10 11:15

740688321 发表于 2019-7-10 10:59
看这儿就明白了

不好意思，要看哪里呢？为什么都看不见有图呢？

mystic_hjj · 发表于 2019-7-10 11:27

终于找到原因了，原来是还要设置宏名的快捷键使宏代码生效。

		自动登录	找回密码
密码			免费注册

[已解决] 禁止键盘Ctrl+V直接粘贴代码问题