VBA指定EXCEL工作簿的有效期

• VBA • 3 条评论 • •6,600 次查阅

VBA指定工作簿的有效期

当过了某个时间这个工作簿将不能被打开或者打开这个工作簿一定要在某个一天才能打开！比如你的excel表格指定在2011-3-23这一天才能打开，其他时间都不能打开！你是不觉得很神秘？想体验吗？那就跟我来写代码！

打开VBA编辑器，在Thisworkbook下插入如下代码：

 

 
  1. Private Sub Workbook_Open() ‘工作簿打开时执行   
  2. If Now >= #3/23/2011# Then ‘指定时间   
  3. MsgBox "此表格只能在2011年3月23日前打开！" ‘显示提示内容   
  4. Application.DisplayAlerts = False ‘此属性为true时，将提示保存等按钮，这里我取消了提示强制关闭excel   
  5. Application.Quit ‘退出excel   
  6. End If   
  7. End Sub   

保存！

再次打开excel将得到提示，如果大于条件日期强制关闭！上面的代码注释我已经写得很详细了！不懂再留言吧！

备注：这只是我无聊时想的一种保护方式，上面的有效期条件完全可以自己设置，当然这方法不经过任何东西的加密，破解起来也很简单！为了增加这个神秘感，破解方式暂时就不公布了，大家享用吧！

分享到：

3 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼

  1. Pingback: VBA实现Excel打开指定次数后自杀 | 印象·派

  2. 毛骗全集

    定下，博主努力

    1. Kael.Z

      你的名字是亮点啊~有空常来~