VBA指定EXCEL工作簿的有效期

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将得到提示,如果大于条件日期强制关闭!上面的代码注释我已经写得很详细了!不懂再留言吧!

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

分享到: