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

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

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

代表放了Open事件中。