超过指定日期打开工作簿则启动自杀程序

此代码为工作簿事件代码

工作簿事件总是在工作簿发生更改时触发的。可以通过选择“ThisWorkbook”并从下拉列表中选择“workbook”来添加工作簿事件的代码，如下图所示：

代码如下（代码简洁，就没有视频讲解了）：

Private Sub Workbook_Open()

     If Now() > #5/1/2018# Then ‘如果当前日期超过2018年5月1日，则启动自杀

  With ThisWorkbook

    .Saved = True '关闭时不出现保存提示框

    .ChangeFileAccess xlReadOnly '访问权限设置为只读

    Kill  .FullName '删除磁盘上的工作簿文件

    .Close False '关闭文件，不保存

 End With

    Else

       Exit Sub '退出程序

    End If

End Sub

备注：如果用户设置禁用宏，则代码失效