Setting an optional save time

[Daisy]

I am using Microsoft Office 2000 (very old I know!) I want to be
able to use a set save time (as I do with Word) but can't find the
option. The program seems to want a plug-in or macro that I don't
have. Has anyone any advice for me - or should I simply buy a later
version of Office?

Daisy

Carthage demands an explanation for this insolence!

 

[Bob Phillips]

Is this what you mean. When you open the book, it will set the save time as
12:30. If you close it before then it will cancel the save

Dim nTime

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime nTime, "SaveFile", , False
End Sub

'-----------------------------------------------------------------
Private Sub Workbook_Open()
'-----------------------------------------------------------------
nTime = TimeValue(12, 30, , 0)
Application.OnTime nTime, "SaveFile"
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


and in a general code module add

Sub SaveFile()
ThisWorkbook.Save
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Gord Dibben]

Daisy

If you mean you want to autosave an incremental backup at regular intervals, say
every 10 minutes, Excel 2000 has the AUTOSAVE.XLA add-in included.

Load it through Tools>Add-ins.

Don't bother getting a newer version of Office. Excel 2000 was the last version
to include AUTOSAVE.XLA

Newer versions have an Autorecovery feature which is useful only if Excel
crashes and you need to recover a file you were working on at the time.


Gord Dibben MS Excel MVP