EXCEL高手如何用VBA实现定时关闭

把手滚这个代码闹薯山放液中到

Private Sub Workbook_Open()

Application.OnTime Now() + TimeValue("00:00:10"), "wbclose"

End Sub

Public Sub wbclose()

Application.DisplayAlerts = False

ThisWorkbook.Close savechanges:=True

Application.DisplayAlerts = True

End Sub

如果不启用宏，自动关闭工作簿是无法办到的。因为不启用宏，任何代码都不会运行，怎迹灶么会自动关闭工作簿呢。

通常的做芹拿法是，在关闭工作簿事件中将所有有用的工作表深度隐藏，显示一个没有的工作表，可在其中写明必须启用宏之类的提示信息。在工作簿打开事件中，将有用工作表显示，无用工作表隐藏。这样当不启用宏打开工作簿将没有任何有用内容，只能看见一个无用工作表中的提示信息。打开时启用宏才能看到和使用正常的工作表。

说明：深姿首扮度隐藏的工作表是无法人工显示出来的，只能由代码显示出来。

思路：定义一个日期型全局变量，在工作表（簿）的事件中随时更改这变量为当前时姿和察间。另外编写一段定时循环执行的代码，对当前时间与全局变量进行迹茄比较，当时间差超过你设定的时间后保存工作簿棚肆并关闭程序。

---