EXCEL2010禁用复制粘贴功能VBA代码分享

hranta · 发表于 2015-11-3 12:16

超级赞啊很高级啊

right1406 · 发表于 2015-12-3 11:52

这个好强大

right1406 · 发表于 2015-12-3 12:02

编译错误，咋回事呢？

Sub CutCopyPasteDisabled()
   'Inform user that the functions have been disabled

MsgBox ("Sorry!  Cutting, copying and pasting have been disabled in this workbook!")
End Sub

'*** In the ThisWorkbook Module ***
Option Explicit

提示，编译错误，在END SUB、END FUNCTION或END属性后面只能出现注释

gtwlren · 发表于 2016-6-13 21:24

着急找时还真难找！谢谢！

hck21cn · 发表于 2016-7-20 19:09

mrhejin 发表于 2014-1-1 21:46
楼主您好！我复制进去后运行宏，提示编译错误，请问应该怎样操作才可以在2007中禁止粘贴啊？谢谢！

2007可以，我试过了！你应该是复制代码的时候不小心弄错哪里了。

hck21cn · 发表于 2016-7-20 19:12

right1406 发表于 2015-12-3 12:02
编译错误，咋回事呢？

Sub CutCopyPasteDisabled()

'*** In the ThisWorkbook Module ***
意思是以下代码放在ThisWorkbook模块里

xipick · 发表于 2016-9-27 10:38

这个很好，连往下填充都给屏蔽了，但是还是可以在工作表名那儿右键选择移动或是复制工作表，再者就是另存为2003的后，就没有限制了。

figo_backham · 发表于 2017-1-12 23:53

楼主，开始项的复制和粘贴没有屏蔽掉，怎么办

zxasdqwer887 · 发表于 2017-6-13 16:22

application.CutCopyMode = False 搞定了

genitous · 发表于 2017-12-6 16:18

这个系统如果默认禁止宏的话，是无法运行代码的，还是有一定缺陷

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