Auto Save - VBA Code or Excel option?

Is there a way to have excel automatically save the workbook every 5 minutes or so? I'm not talking about the backup option (tools-options-save) I mean do a hard save?

Or would this warrant a timed VBA code? If so, can someone build me one quickly? I'm kinda in a time crunch - sorry for last minute notice

Co-worker just deleted 8 hours of work bec "she didn't" know to save it....

Place this code in a generl Module

Please Login or Register  to view this content.

Place this code in "This Workbook":

Please Login or Register  to view this content.

The code will save your workbook every five minutes and will turn off the save when the workbook is closed.

Hope this helps. J

Thanks for the response! Just a quick question though:

It does save after 5 minutes, but when I close the workbook, it prompts to save or not. If I hit no, it doesn't save.

I added "ActiveWorkbook.Save" to the "workbook before close" macro, and that seemed to do the trick. But I noticed you have that already in the "SaveWorkbook" macro - was this souposed to call already? Or am I okay leaving that in there?

This save

Please Login or Register  to view this content.

is the save called by the timer. If you make workbook changes within 5 minutes after this runs and then closed the workbook, you'll be asked to save because the changes you made have not been saved by the timer. So, your

"ActiveWorkbook.Save"

is entirely appropriate.

When you researched this subject, I'm certain you became aware of the caveats regarding "auto-save". It saves EVERYTHING. Be cautious if you're still debugging and that user access is limited to cells you want them to change.
J

I put some notes in the code so you can see what it's doing. I made these notes in NotePad so I can't guarantee this code will run without error., but you will get the drift.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hope this helps. J

Why re-invent the wheel when excel aulready has a autosave feature?
in vba:

Please Login or Register  to view this content.

if you want to make daily copies of your work, use the application.ontime method shown before and replace thisworkbook.save by this code :

Please Login or Register  to view this content.

You will need to make manually a auto_save directory in your workbook's default path or it will trigger an error.
Also check if you saved it as ".xlsm" or ".xls" and make changes accordingly to the code...

Also consider to add in your before_close section of thisworkbook (in VBE):

Please Login or Register  to view this content.