06-22-2001, 07:54 AM
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?
06-25-2001, 09:01 AM
You may find the Save option in the method
Quit, Close or the likes.
06-25-2001, 09:01 PM
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"
Set aWB = Nothing
Where tempPath is the path to a temporary backup directory (like "C:\Windows\Temp" or whatever)
"On a long enough timeline, everyone's life expectancy drops to zero." - Fight Club