Link to home
Start Free TrialLog in
Avatar of timgreen7077
timgreen7077

asked on

Excel 2000 (office 2000)

Is there an autosave feature that will save your data about 5 min. Not neccessarily auto recovery but save. This is for office 2000
Avatar of expert02232010
expert02232010

I believe the is an add-on tool that will provide that feature, I think it requires sr1.
ASKER CERTIFIED SOLUTION
Avatar of expert02232010
expert02232010

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Not that i am aware of, but it is easily implemented using a little macro such as :
note : place this code in a module, update the filename & location !
Public keep_saving As Boolean

Public Sub auto_save()

    If keep_saving Then
        Application.OnTime Now + TimeValue("00:00:05"), "auto_save"
        ThisWorkbook.SaveAs "c:\temp\test  " & Replace(Now, ":", "-") & ".xls"
    End If

End Sub

Open in new window


and place this code in thisworkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    keep_saving = False
End Sub

Private Sub Workbook_Open()
    keep_saving = True
    Application.OnTime Now + TimeValue("00:00:05"), "auto_save"
End Sub

Open in new window



above macro saves the worksheet each 5 seconds, so also update the timevalue to :

"00:05:00"
Avatar of timgreen7077

ASKER

thanks