前景提要()
昨天我们分享了如何限制工作薄的打开次数,主要原理是通过记录工作薄打开的次数来进行相关的操作,比方说达到一定次数之后就不再允许对方打开工作薄或者自动删除数据之类的,看大家比较想要知道达到次数之后删除工作薄的操作,后面我会再写一篇文章来分享下删除工作薄的代码操作,今天我们继续分享工作薄保护方面的知识,这次我们要实现的目的就是禁止对方复制粘贴我们的数据。
场景模拟
依然还是假设其他的同事需要我们的数据,并且希望我们分享自己的数据(别介,小编实在没有太好的场景了),这次我们的数据是可以给对方看的,但是也仅仅是看看而已,我们不希望对方在拿到我们的数据之后,又去复制粘贴拷贝一份数据,交给上级邀功去了,好吧,我承认我邪恶了,那么我们就需要设置自己的工作簿禁止复制粘贴,给你看,你就老老实实的看看就好~~,不废话,上代码
代码区
Dim cmdBar As CommandBarDim cbrCtl As CommandBarControlSub DisableCutCopyPaste() DoWithControl 21, True DoWithControl 19, True DoWithControl 22, True DoWithControl 755, True With Application .OnKey "^c