Excel工作簿自动销毁功能，使用时间到期后自动删除文件( 三 )_想必很多人都使用过付费软件

步骤一：要实现这么高级的功能，当然离不开VBA啦！首先右键单击示例工作表，然后左键单击【查看代码】选项，最后在Visual Basic编辑器中左键双击工程资源管理器中的【ThisWorkbook】选项，并将以下代码复制粘贴到右侧的代码窗口中。

请注意：代码【If DateDiff(\"d\" DateSerial(2019 8 16) Date) >= 30 Then】中，（2019816）指代的是起始日期， Date指代的是系统当前日期， >=30指代的是使用期限为30天。起始日期和使用期限可根据自身情况修改。

代码区域：

Private Sub Workbook_Open()

If DateDiff(\"d\" DateSerial(2019 8 16) Date) >= 30 Then

MsgBox \"此文件试用期限为30天，目前您的使用期限已到，请联系开发者！\" 48 \"温馨提醒您：\"

Call KillThisWorkbook

Excel工作簿自动销毁功能，使用时间到期后自动删除文件( 三 )