文件不操作则自动关闭文件（定时器）

rcyun · 发表于 2013-4-11 19:22

感谢分享

FL-求知 · 发表于 2013-4-11 19:32

谢谢分享~~~~~~~~~~~~~

rcyun · 发表于 2013-4-11 19:35

Application.OnTime EarliestTime:=TimeValue(Runtime), _
Procedure:="计时器", Schedule:=False
On Error GoTo 0

这几句是什么意思，看不懂，烦请路过的大师们解释下，谢谢！

maditate · 发表于 2013-4-11 19:41

rcyun 发表于 2013-4-11 19:35
Application.OnTime EarliestTime:=TimeValue(Runtime), _
Procedure:="计时器", Schedul ...

这句是撤消已经发出的定时。
当文件发出定时，但你在定时之前关闭了文件（Excel外壳还在，或还有其他文件没关闭），到定时时间系统会运行所定时的宏。此时合弹出启用宏禁用宏对话框。
加了这句后，当文件关闭时自动撤消已经发出的定时。

星语心愿 · 发表于 2013-4-11 19:54

可以自动保存吗？修改了以后好像也不能自动保存啊？

星语心愿 · 发表于 2013-4-11 19:54

还有，可否在关闭前弹出一个对话框，如果用户不选择，倒计时完成后自动关闭。如果用户选择了关闭就关闭，如果用户选择不关闭就不关闭。可以实现吗？

maditate · 发表于 2013-4-11 19:57

星语心愿发表于 2013-4-11 19:54
可以自动保存吗？修改了以后好像也不能自动保存啊？

把关闭前不保存的语句改为保存就行了。

maditate · 发表于 2013-4-11 20:02

星语心愿发表于 2013-4-11 19:54
还有，可否在关闭前弹出一个对话框，如果用户不选择，倒计时完成后自动关闭。如果用户选择了关闭就关闭，如 ...

弹出框是可以的，问题是如果弹出了对话框就失去了自动关闭的意义了。

答前一贴保存问题
把下面这句修改为保存句

ThisWorkbook.Saved = True '此句为不保存文件，如需可改写保存语句。

ThisWorkbook.Save

星语心愿 · 发表于 2013-4-11 20:07

弹出的对话框可以加个倒计时功能啊。如果用户不点击，就自动关闭。这样也是自动关闭啊。。。

现在如果用户在电脑前，本来不想关闭的，结果就突然关闭了，不方便啊。

星语心愿 · 发表于 2013-4-11 20:14

还有不能自动保存，可以做一个自动保存的代码出来吗？完整的代码。

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

[分享] 文件不操作则自动关闭文件（定时器）