Disable Save As and Save - enable Save via button

Define a global variable, for example:

Please Login or Register  to view this content.

Initialise the variable to False. In your Save routines, change the variable to True.

Then, in youur BeforeSave event, test the variable.

Please Login or Register  to view this content.

Regards

Originally Posted by TMShucks

Define a global variable, for example:

Please Login or Register  to view this content.

Initialise the variable to False. In your Save routines, change the variable to True.

Then, in youur BeforeSave event, test the variable.

Please Login or Register  to view this content.

Regards

Thanks for the quick response. I can't seem to get this to work.

I declared bAllowSave at the top of the module and set it to False on Private Sub Workbook_Open().

Am I placing this information in the wrong place?

Yes, that's right. And in your Save Routines you'd need to set it to True.

You maybe need to track the close routines to see what the sequence of events is.

Basically, if someone just closes the workbook or clicks on the x, then the BeforeCloes event should fire and the save would be cancelled.

If your save routines are executed, you need to set the variable to true before exiting.

Post the workbook if you're still having a problem.


Regards

Originally Posted by TMShucks

Yes, that's right. And in your Save Routines you'd need to set it to True.

You maybe need to track the close routines to see what the sequence of events is.

Basically, if someone just closes the workbook or clicks on the x, then the BeforeCloes event should fire and the save would be cancelled.

If your save routines are executed, you need to set the variable to true before exiting.

Post the workbook if you're still having a problem.


Regards

What I've done is the following:

Please Login or Register  to view this content.

I then have the following on the Save button:

Please Login or Register  to view this content.

When I press the button, I get the pop up to rename the file (which is correct since it has the Template name) but the Save As dialog does not pop up. It simply takes me back to the spreadsheet. Pressing OK on the dialog should take me to the Save As dialog.

workbook, please?

Probably my fault ;-(

Try this:

Please Login or Register  to view this content.

and

Please Login or Register  to view this content.

The Msgboxes are just there to track progress through the routines. You can remove them or comment them out once you are confident that it is doing what you expect.

Regards

Perfect! Thanks for spending the time on this!

You're welcome. Glad we got there!