excel2003考虑到共享使用问题了啊,在工具菜单栏中有共享工作簿此功能,允许多个用户同时编辑文档。同时高级参数中可以保留近30天的更改记录,不过由于多用户使用涉及到刷新问题,目前最小使用间隔为5分钟。同时解决多用户冲突问题。
如果一定要实现定时自动关闭的话,请使用以下代码:
Private Sub Workbook_Open()
Dim ot As Date '定义旧时间数据类型变量
Dim nt As Date '定义最新时间数据类型变量
ot = Time '获取现在时间(老)
Do
DoEvents
nt = Time '获取现在时间(新)
If DateDiff("s", ot, nt) = 600 Then
'比较时间,既已经过去的时间,这里是600秒即10分钟
ot = nt
nt = Empty '还原时间变量(循环)
ThisWorkbook.Close (1) '条件成立保存并关闭excel
End If
Loop
End Sub
打开EXCEL。。。工具--选项---保存----自动保存
自动保存倒有,自动关闭就没听说过,自动保存一直是excel自带的功能,楼主可以自己在菜单里看一下,或者它本身就已经设置好了,自动关闭就没听说过,可能要用程序额外控制。
单击“工具”菜单中的“自动保存”命令。
如果“工具”菜单中没有“自动保存”命令,必须安装“自动保存”加载宏。
操作方法
选中“自动保存时间间隔”复选框。
在“分钟”框中,输入希望 Microsoft Excel 自动保存工作簿的时间间隔。
选择所需的其他选项。
学习下,有难度啊