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

2016年12月30日10:38:16 评论 5,030 views
微信公众号 【EXCEL880】 QQ群【165159540】
Excel课程咨询 请加郑广学老师微信EXCEL880B

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

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

代表放了Open事件中。