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  
如果你不想谁都看见的话,可以给工作簿事先加密。
若是公开的话,跳过上面这步,直接将上面代码写入。
很神奇吧,打开表格在关闭后,表格将自动删除
哈哈~兄弟们赶紧尝试下吧!
特别提醒:千万别拿重要数据做测试,不可逆的,后果自负!
分享到: