VBA作品保护 过日期后自动删除Excel

2016年12月30日10:38:16 评论 3,640 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。

Private Sub Workbook_Open()
If Now() >= #2/12/2015# Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub

代表放了Open事件中。


   

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin