Excel - Auto Save

Hi,

Seeing as Excel doesn't have an auto save, what would be the best way to put one in?

Also so it applies to all new workbooks opened?

Regards,

images/icons/smile.gif

You may find the Save option in the method
Quit, Close or the likes.

AnhMy_Tran

I posted this to your question in the "VB Help" section, but I'll repost it here.

You could easily write an addin that had a Timer which saved things periodically.

In the Timer1_Timer() routine (or whatever you call it) you could put

Dim aWB As Excel.Workbook
For i = 1 To Excel.Application.Workbooks.Count
Set aWB = Excel.Application.Workbooks(i)
aWB.SaveCopyAs tempPath & IIf(Right(tempPath, 1) = "\", "", "\") & "Backup" & i & ".xls"
Next i
Set aWB = Nothing

Where tempPath is the path to a temporary backup directory (like "C:\Windows\Temp" or whatever)

-Hand Out


"On a long enough timeline, everyone's life expectancy drops to zero." - Fight Club