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倒计时销毁功能的制作方法已经介绍完毕。还是要提醒一下,请注意文件备份,否则倒计时完成后文件会自动销毁,并且回收站中无法找回。

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

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

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20190821A0AVPR00?refer=cp_1026
  • 腾讯「云+社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。

扫码关注云+社区

领取腾讯云代金券

年度创作总结 领取年终奖励