VBA to open "Save As" Dialogue box whenever file is opened

Hi Everyone,

I'm wondering if there's a way to create a VBA that will automatically open a "save as" dialogue box whenever a workbook is opened. I am trying to prevent users from overwrittting old versions.

Thanks!

iit'd be better to use code for workbook beforeclose event.

The attached will auto save the file in the Documents folder. File named: Backup.xlsm

It autosaves when the file is opened without the user being aware (ScreenUpdates and Alerts are set to False; then turned back on once the file is saved).

Each time it autosaves the previous backup version is overwritten (replaced with the newer version).

Code in ThisWorkBook module initiates the macro upon workbook opening to create the backup. Code in the routine module does the actual backup.


In ThisWorkBook:

Please Login or Register  to view this content.

In regular Module:

Please Login or Register  to view this content.

Thanks for that! However, I was hoping to write something that actually launches a "save as" dialogue box as soon as the workbook is opened so that person using it can save the new version with the updated date each time a change is made.

That's not a bad idea but I can't think of how I could do that!

I misunderstood your intentions. Since you were not wanting the user to by-pass the process, made it completely automatic.

Here's another version.

Originally Posted by Winon

Hello enwoznick,

What if when the "save as" dialogue box appears and the user simply hits the cancel button?

Yeah, I figured that may happen but I really just want the box to appear to prompt people to remember to save a new version right away before making changes.

This works great! Thanks so much!

Elise

Originally Posted by Logit

I misunderstood your intentions. Since you were not wanting the user to by-pass the process, made it completely automatic.

Here's another version.

Hey Logit, this has been working great. Thanks again. I'm wondering if there is a way to modify this to automatically make the "save as" name combine combine the contents of a certain cell and the date. I'm guessing this would be pretty tricky but wondering if you have any thoughts!

Using this code in the ThisWorkBook module / Close Event:

Please Login or Register  to view this content.

The code auto saves the file with the extension : Today's date and the time of saving (includes hours / minutes / seconds) so the file can be saved continuously without overwriting previous versions.