Excel工作簿自动销毁功能，使用时间到期后自动删除文件( 四 )
Else
Exit Sub
End If
End Sub
步骤二：接下来需要插入一个模块 。 首先右键单击工程资源管理器窗口 ， 并将鼠标指针移动至插入选项 ， 然后左键单击【模块】选项 。 最后将以下代码复制粘贴到模块1的代码窗口中 。
代码区域：
Option Explicit
Sub KillThisWorkbook()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
Application.DisplayAlerts = True
推荐阅读
- 杰斯·麦卡兰|炉石自制卡牌：持续性法术出现，半自动英雄登场
- 传奇|传奇3怀旧版手游：完美复刻光通传奇3，三端互通，可自动拾取，自动挂机！
- 实况足球|开始摆烂？实况足球2022正式版延期更新，并为预售玩家自动退款
- 天龙八部|DNF工作室为活命太拼了！下血本买机械臂物理外挂，24小时自动打金
- 自动化|《机器人殖民地（Autonauts）》是一款由Denki制作
- 银河破裂者|怎样自动解锁任何Steam游戏的成就？
- 我的世界|我的世界：详解新生物“铜傀儡”！还有自动红石、变雕像、引雷等
- 阴阳师|阴阳师：新版本结界突破全自动阵容推荐，碰到川雪花不用绕道走
- 新世界|《新世界》网游恶意举报频发，24小时封禁疑似系统自动审核
- 新三国|那些自动化游戏伤肝又爱玩