Excel科幻电影效果，文件倒计时销毁功能，网友直呼太科幻

知识改变命运，科技成就未来。

看过电影《碟中谍》的小伙伴应该对电影中的这一环节印象很深刻，主人公在机密文件播放完毕后，文件采用倒计时的方式自动销毁，看起来很炫酷。在我们的实际生活中，也会有一些机密文件不想被第三方看到，也想做一个像电影中一样自带倒计时销毁功能的文件，这样可以保证文件不被第三方看到，有效的保证了文件的安全性。

或者你想追求自己心爱的女神，不妨做一个表白文件，女神浏览后文件后自动删除。想必她也会好奇发生了什么事情，肯定会反过来问你怎么回事，后面的事情就靠你自己了，小编能力有限，只能帮你到此了。

本篇文章将带领大家走进科幻的世界，制作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倒计时销毁功能的制作方法已经介绍完毕。还是要提醒一下，请注意文件备份，否则倒计时完成后文件会自动销毁，并且回收站中无法找回。

由于前两篇文章具体操作步骤介绍的比较详细，本篇文章废话不多说，如果您对步骤有疑问，请麻烦浏览以上两篇文章获取解答。如果没找到解决办法，请在下方留言，小编会及时给您解答的，谢谢您的支持。

动动手指点击关注和转发，让更多的人告别加班的烦恼，每天掌握一些科技小技巧，相信也会为您的工作和生活带来便捷。