PDA

View Full Version : Auto SAve



jammer6_9
10-07-2007, 05:50 AM
Is it possible to Autosave ActiveWorkbook in a specific period of time? Example set the workbook to autosave at 6:00 PM...

xld
10-07-2007, 06:47 AM
Take a look here http://www.cpearson.com/excel/ontime.htm

lior03
10-25-2007, 09:58 AM
what about:

Sub deluxer()
On Error Resume Next
Dim x As Integer
Dim wb As Workbook
Application.OnTime Now + TimeSerial(0, 0, 300), "deluxer"
For Each wb In Application.Workbooks
If wb.name <> ActiveWorkbook.name Then
Application.StatusBar = " now saves - " & ActiveWorkbook.name
wb.Save
End If
Next
Application.StatusBar = ""
Exit Sub
End Sub


a workbook is saved automatically every 5 minutes
thanks