VBA 定时自我删除

1. 利用ThisWorkbook的Workbook_Open事件，实现定时自我删除。

注意：这是个狠角色，宏文件打开后自动运行，会把当前整个宏文件删除掉，回收站都没有的那种，谨慎使用。

Private Sub Workbook_Open()
    Dim datKill As Date
    
    '指定一个日期，例如2025年4月1日
    datKill = DateSerial(2025, 4, 1)
    
    '如果当前日期超过了指定日期则开启自我删除
    If Date >= datKill Then
        Application.DisplayAlerts = False
        '这里可以写一个提示消息；也可以悄悄地进行，打枪的不要
        Msgbox "拜拜了您内"
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close
        End With
    End If
End Sub