工作簿延时自杀的代码

lisachen · 发表于 2011-2-9 13:50

本帖最后由 lisachen 于 2011-2-9 22:32 编辑

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
谢谢hhzjxss
老师提醒提示：

文档在打开前，请注意备份，否则如果是重要的文件，自杀了可不要哭鼻子哦！

BAIXINGR · 发表于 2011-2-9 14:04

学习

hhzjxss · 发表于 2011-2-9 16:31

提示：

文档在打开前，请注意备份，否则如果是重要的文件，自杀了可不要哭鼻子哦！

huangjialisu · 发表于 2012-4-8 14:40

excel 打开一闪一闪的怎么解决啊

chengyunqw@126. · 发表于 2012-4-19 12:56

感谢分享！！！！！

		自动登录	找回密码
密码			注册