• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1059
  • Last Modified:

Excel 2003 Auto Save With Macro

I have an Excel worbook with operators using in 2003.  

Instead of the AutoRecover function, I would like a macro to run automatically (not on close) which would automatically save the workbook periodically, say every 15 minutes, to a network share.

Could someone help with a sample macro or script to accomplish this?
0
mrherndon
Asked:
mrherndon
  • 2
1 Solution
 
ProfessorJimJamCommented:
Public dTime As Date
 
Sub AutoSave()
    dTime = Time + TimeValue("00:15:00")
    With Application
        .OnTime dTime, "AutoSave"
        .EnableEvents = False
        .DisplayAlerts = False
        ThisWorkbook.Save "FilePath&NameHere(no .xls)"
        .EnableEvents = True
    End With
End Sub

 In ThisWorkbook Module;

VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime dTime, "AutoSave", , False
End Sub
 
Private Sub Workbook_Open()
    dTime = Time + TimeValue("00:15:00")
    Application.OnTime dTime, "AutoSave"
End Sub
0
 
ProfessorJimJamCommented:
or you can also use the AutoSafe add-in from http://www.jkp-ads.com/Download.asp
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now