Excel VBA工作薄 5.15 设置工作薄有效期 数据给你用多久我说的算

前景提要

之前我们分享了如何通过简易登录窗体的方式来保护我们的关键数据，这是一种非常暴力的方式，使用我们的电脑的人，如果想要查看我们的数据，或者要打开我们的数据，都必须输入相应的密码才可以，对于多班次多岗位同事共用一台电脑的公司，这个方法应该是比较有效果的，但是又有点太直接了，比方说其他同事想要当面找你要数据参考下，你总不能直接拒绝吧，毕竟大家一个公司的嘛，那今天和大家分享一下比较隐蔽一点的数据保护的方式，来，快关门~

场景模拟

假设有同事想要看看你的数据，但是他对你又有提携之恩，不好拒绝，但是嘛你自己的数据毕竟是你辛苦得到的，拒绝有不好，不拒绝又不好，那怎么办？简单点，我设置个有效期吗，假设我给你看一天，明天你打开的时候，这个工作薄就什么都看不到了，是不是好神奇，来，上案板

代码区

非常简单

Private Sub Workbook_Open()Dim tt = DateIf t = #5/8/2019# Then a = MsgBox("文件已损坏！", vbInformation) ActiveWorkbook.CloseEnd IfEnd Sub

咦，代码好像很简单哦，真的可以实现这样的功能吗？来看看效果

对方接受了你的文件之后，到期后会提示

为什么会损坏呢，你不知道他不知道，大家都不知道，反正他的数据是看不成了，然后她有不好意思再找你要一份了，so，计策是不是很成功呢？哈哈

代码分析

看到代码的外框架，大家就知道这一段代码应该写在哪里了吧

还是需要写在这里，如果写在其他的地方是不灵验的哦

代码的内容也很简单，当执行了报表的打开命令之后，就是会执行下面的代码

t = Date

先获取当前的日期

然后进行判断当前的日期，是否等于我们要设置的有效期的截止日期

If t = #5/8/2019# Then a = MsgBox("文件已损坏！", vbInformation) ActiveWorkbook.CloseEnd If

这里要注意日期的写法，日期之间要加上#****#，在VBA中，这是日期的写法，这样表示中间的代表的是日期

如果日期等于我们设定的日期，就会弹出我们预设的窗口（换成感叹号好一点）

当然内容你可以自己组织咯，文件损坏啊，或者什么网上找的更加专业的报错之类的，反正就是让对方认为文件坏了，当他点击了确定之后，

ActiveWorkbook.Close

文件自动关闭，这个大家已经很熟悉了。