站点图标 网创联盟

利用VBA设置Excel数据防盗与反防盗,附代码

▼数据看上去一切正常,但是复制出来都是乱码(动画演示)

这是怎么回事?其实这是一种很常见的数据防盗手段!很多系统导出数据时,会在正常数据中加入一些随机字符串,把这些字符字体大小设置成1号或者2号,颜色设置成白色。由于特别小加上字体和背景色一致,所以我们基本看不出这些,当我们复制粘贴后,字体大小一致,就会发现其中有乱码!

其实有经验的老铁,从编辑框中就会发现问题,其中有很多其他内容!

那么,我们就有两个问题:

1、是否有办法提取出原本正确的数据?

2、我们是否也可以自己做数据防盗!

这两个问题,都可以实现,我们我们来一一处理

▍S01 – 提取出正确的数据

▼动画演示-一键提取

我们知道防盗原理,提取也就变得很简单,我们只需要判断单元格中的每个字体大小,如果小于特定的大小就删除掉或者说大于特定的大小才提取即可!

▼全部代码截图

▍S02 – 如何给自己的数据防盗
同样的我们也可以给自己的数据加入一些随机字符,并把字体设置一下也可以有了自己的防盗手段!这个对于来讲非常简单!

▼数据一键防盗

▼全部代码截图

代码大部分已经注释,自己稍微修改一下开头对应的数据地址和工作表名称,粘贴到自己的文件中即可使用!

附件下载:

退出移动版