How come I dont have auto-save in the add-ons menu?

[chrisdab]

How come I dont have auto-save in the add-ons menu?
I dont even notice it on the microsoft office website. I have office xp sp3, excel 2002.

 

[erik.van.geit]

hi, chrisdab,

take a look at menu Tools / Options
tab "Save"

kind regards,
Erik

 

[chrisdab]

Thanks but I dont want autorecover. I want autosave, preferably to a second file or even overwrite the first

 

[erik.van.geit]

then an option would be "OnTime"
open workbook without enabling macros
paste the code and close
reopen with macros anabled

in the thisworkbook-module

Option Explicit

Private Sub Workbook_Open()
sec = 300 '= 5 minutes
Run "do_something"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "stop_it"
End Sub

in a "normal" module

Option Explicit

Public sec As Integer
Public when As Variant

Sub do_something()
when = Now + sec / 60 / 60 / 24
Application.OnTime when, "do_something"
'here your save code
'something like the next line
ThisWorkbook.Save
End Sub

Private Sub stop_it()
Application.OnTime EarliestTime:=when, Procedure:="do_something", schedule:=False
End Sub

kind regards,
Erik