[已解决]excel2003可以设置自动保存吗？或用VB来实现！

gemeng25569

我们的员工在应用EXCEL2003录入数据时，经常会忘记保存，如何才能实现自动保存呢，几秒保存一次！

最佳答案

月排行榜 / 总排行榜

Select

2011-8-18 17:23

工作簿1.rar (8.58 KB, 下载次数: 27)

2011-8-18 17:22 上传

点击文件名下载附件

在工作簿打开事件中
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

在标准模块中
Sub my_Procedure()
    ThisWorkbook.Save
End Sub

这样呢{:041:}
这是每隔15秒就保存1次。根据情况，自行修改（红色的）时间。

跳转到最佳答案楼层

Select

工具-选项，将10分钟改为1分钟？

A1090A

就是楼上的办法就方便了

gemeng25569

那个没用的，，你可以试试看啊！

那是自动恢复！不是自动保存！

Select

工作簿1.rar (8.58 KB, 下载次数: 27)

2011-8-18 17:22 上传

点击文件名下载附件

在工作簿打开事件中
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

在标准模块中
Sub my_Procedure()
    ThisWorkbook.Save
End Sub

这样呢{:041:}
这是每隔15秒就保存1次。根据情况，自行修改（红色的）时间。

gemeng25569

回复 Select 的帖子

非常感谢你的热心帮助，，谢谢！

gemeng25569

回复 Select 的帖子

你的这个只能保存一次，但是15秒过后将不能再继续保存！