Excel文件自毁VBA指令

最新推荐文章于 2025-06-13 02:38:10 发布

原创最新推荐文章于 2025-06-13 02:38:10 发布 · 9.3k 阅读

33 ·

CC 4.0 BY-SA版权

文章标签：

#vba #Excel自杀

Excel-VBA 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一段Excel VBA代码，该代码可以用于在不提示用户的情况下删除当前的工作簿。需要注意的是，在运行此代码之前务必备份重要的数据，因为删除操作不可逆。

新建一个Excel工作簿，按Ctrl+F11打开Excel VBE代码编辑窗口，把以下代码指令放到ThisWorkbook，只要一运行就会毁掉当前工作簿，需要做好备份：

Sub kills()
Application.DisplayAlerts = False
With ThisWorkbook '定位到ThisWorkbook
    .Saved = True '关闭保存时
    .ChangeFileAccess xlReadOnly '将文件设为只读
Kill .FullName '毁掉文件
    .Close
End With
Application.DisplayAlerts = True
End Sub