VBA实现密函特效

密函
古装电视上通常有这么个场景—–当接收人看完密函后,信件自动销毁的场景!
突发奇想,Excel应该也能实现这样的特效功能。
比如给小丽写的情书,她看完后自动消失,是不是很搞啊?
哈哈~怎么实现呢?
代码如下:(VBA方式)
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)   
  2.   ActiveWorkbook.ChangeFileAccess xlReadOnly       
  3.   Kill ActiveWorkbook.FullName       
  4.   Application.Quit  ‘退出程序   
  5. End Sub  
如果你不想谁都看见的话,可以给工作簿事先加密。
若是公开的话,跳过上面这步,直接将上面代码写入。
很神奇吧,打开表格在关闭后,表格将自动删除
哈哈~兄弟们赶紧尝试下吧!
特别提醒:千万别拿重要数据做测试,不可逆的,后果自负!
分享到:

6 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 锐品创意

    ~~看看~留下脚印~~呵呵~

  2. 北京艺术写真

    不好看懂啊。。。

    1. Steven

      不懂就请教吧~

  3. 盐焗香

    文章写得很好,谢谢分享了。

  4. 混小子博客

    看的不是很懂 呵呵

    1. Kael.Z

      不懂就问嘛~~