NZ13：VBA给数据加密处理

【分享成果，随喜正能量】爱出者爱返，福往者福来。怀揣一颗善良的心，本本分分，坦坦荡荡，多去帮助需要的人，坚持善良做人，才能不负于人，不负自己。。

我的教程一共九套及VBA汉英手册一部，分为初级、中级、高级三大部分。是对VBA的系统讲解，从简单的入门，到数据库，到字典，到高级的网抓及类的应用。大家在学习的过程中可能会存在困惑，这么多知识点该如何组织成自己的程序呢？VBA可否能组织一个大型的程序呢？如何让VBA形成一个工具，拿来就用呢？在我的教程完结后，我陆续推出这类技术工具资料，这类工具整合了若干多的VBA知识点，让大家感受到VBA之强大。工具资料共两个系列，一个是YZ系列，一个是NZ系列。今日给大家介绍的是NZ系列工具：NZ13：VBA给数据加密处理

NZ13：VBA给数据加密处理

也许您的EXCEL表格中有些数据是给特殊人看的，不能示众。如：财务的工资表，人事部门的掌握的员工个人电话，汇总后的多人家庭住址，领导掌握的属下的奖金分配额，老板的分红记录等等，甚至是一些个人的历史档案。那么有没有办法让这些数据实现加密呢？出示给人的是一些无法破译的字符，如果自己需要了可以随时解密。

是的，VBA无所不能，我给出的这个工具NZ13就可以实现给数据的自由加密。只要数据是加密状态，即时别人打开工作簿文件，看到的也是无关的东西。而你需要做的，就是记住自己的加密密码，以便恢复数据。

工具的代码我封装在VBA_数据加密.xlsm文件中。工具是开放源码的（注意VBE的打开密码是123456789，但强烈建议您不要轻易打开代码窗口，即使打开也要留有备份）。您可以把数据拷贝到这个文件中，也可以把代码复制到您的文件中。注意：这个工具代码的运行可以通过快捷键来完成。

一工具的应用场景

我们看下面的表格：

对于上述数据，当您打开时最不想让人看到的是每个人的“工资收入”，这时我们企望的就是把这些“工资收入”的单元格进行加密。

有的朋友会说了：可以隐藏啊，是的，可以隐藏这列，但这是EXCEL的操作，在熟悉VBA后，可以达到更高的层次。更何况如果是隐藏列，当别人打开这个工作簿时可以取消隐藏实现数据的读取。那么，是否可以设置打开工作薄的密码呢？首先，这些数据只是部分不便示人，大部分是可以让别人看的；其次，我强烈建议使用EXCEL表格的学员，不要使用打开工作薄的密码，非常麻烦！

二加密的操作

在这个工具中我们给出了一种全新的加密与解密的方案，我们看下面的操作。

1）选择我们要加密的数据：

2）按下快捷键CTRL+SHIFT+T，这是程序中我设定的快捷键：

当然也可以在这个时候选择加密的数据，然后点击确定。

3）点击确定后，程序会弹窗要求您设置加密方案，这是一个密码，程序会根据这个密码对数据进行加密，我给出的是“1234”。然后点击确定：

4）这个时候，程序会问您是加密还是解密，加密您要录入1，解密要录入2，我们首先录入1，进行加密操作。

5）点击确定后，加密就完成了，我们看一下加密后的数据：

以上您很难知道原始的数据了。

三解密操作

下面我们看一下如何解密，1）到3）的操作和加密是一样的，注意录入的密码要正确。

4）这个时候，程序会问您是加密还是解密，加密您要录入1，解密要录入2，我们录入2，进行解密操作。

5) 解密后的数据：

这个时候数据又返回到原始的状态了。

目前这个工具的加密范围是：数字，字符，字母（含大小写）

【分享成果，随喜正能量】

下面是NZ系列VBA应用工具：