更新时间：作者：小小条
知识改变命运，科技成就未来。
看过电影《碟中谍》的小伙伴应该对电影中的这一环节印象很深刻，主人公在机密文件播放完毕后，文件采用倒计时的方式自动销毁，看起来很炫酷。在我们的实际生活中，也会有一些机密文件不想被第三方看到，也想做一个像电影中一样自带倒计时销毁功能的文件，这样可以保证文件不被第三方看到，有效的保证了文件的安全性。
或者你想追求自己心爱的女神，不妨做一个表白文件，女神浏览后文件后自动删除。想必她也会好奇发生了什么事情，肯定会反过来问你怎么回事，后面的事情就靠你自己了，小编能力有限，只能帮你到此了。
本篇文章将带领大家走进科幻的世界，制作Excel工作表倒计时销毁功能，先来看一下实际效果展示，时间设置为10秒后文件自动销毁。看起来是不是有些神奇呢？接下来一起学*探讨如何制作Excel工作表倒计时销毁功能吧！
步骤一：由于需要编辑VBA代码，所以先打开Visual Basic编辑器，接着在工程资源管理器窗口中插入一个模板，并将以下所有代码复制粘贴到模版1的代码窗口中，最后关闭Visual Basic编辑器。
由于此代码带有提示性语句，所以需要在工作簿中建立两个工作表，在工作表sheet1中添加提示语句，将重要数据输入到工作表sheet2中，这样不影响整体效果。
代码区域：
Sub Auto_open()
Call runtimer '打开文档时自动运行
End Sub
Sub runtimer()
MsgBox "文件自动销毁功能已启动，点击确定按钮后开始10秒钟倒计时！", 48, "温馨提醒您："
Application.OnTime Now + TimeValue("00:00:10"), "SaveIt"
'当前时间过10秒开始运行 SaveIt 这个过程。
End Sub
Sub SaveIt()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
'ThisWorkbook.Close False
End Sub
Private Sub Workbook_Open()
With Sheet1
.Unprotect
.UsedRange.Locked = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
请注意代码【TimeValue("00:00:10")】的单位换算。如果想实现60秒倒计时，正确的输入方式应该是【TimeValue("00:01:00")】；如果想实现110秒倒计时，正确的输入方式应该是【TimeValue("00:01:50")】。
如果你想出其不意攻其不备，让Excel工作簿不作任何提示，只需删除代码行【MsgBox "文件自动销毁功能已启动，点击确定按钮后开始10秒钟倒计时！", 48, "温馨提醒您："】即可。
步骤二：将Excel工作簿另存为【*.xls】或【*.xlsm】格式。
至此，Microsoft Excel倒计时销毁功能的制作方法已经介绍完毕。还是要提醒一下，请注意文件备份，否则倒计时完成后文件会自动销毁，并且回收站中无法找回。
由于前两篇文章具体操作步骤介绍的比较详细，本篇文章废话不多说，如果您对步骤有疑问，请麻烦浏览以上两篇文章获取解答。如果没找到解决办法，请在下方留言，小编会及时给您解答的，谢谢您的支持。
动动手指点击关注和转发，让更多的人告别加班的烦恼，每天掌握一些科技小技巧，相信也会为您的工作和生活带来便捷。
版权声明：本文转载于今日头条，版权归作者所有，如果侵权，请联系本站编辑删除