VBA实现密函特效

• VBA • 6 条评论 • •6,058 次查阅
密函
古装电视上通常有这么个场景—–当接收人看完密函后，信件自动销毁的场景！
突发奇想，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

      不懂就问嘛~~