VBA 定时自我删除

chunyu.wu

已于 2024-07-05 09:02:31 修改

阅读量528

点赞数 6

分类专栏： VBA 文章标签： VBA

于 2024-07-05 08:53:58 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140197820

版权

VBA 专栏收录该内容

64 篇文章 3 订阅

订阅专栏

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