Save As Dialog Box VBA

[dimitri]

Hi,
I'm looking for a code that will bring up the Save As dialog box allowing the user to save the current workbook under a different name. I want the Save As Type to be restricted to an XLSM file and want to force the user to save instead of hitting cancel or the x button.

If this is possible your help would be appreciated. Thanks.

P.S. I will run this code in the Open event of my workbook as I don't want the user to make changes to the original template before saving a copy. But I know this code won't work if Macros are tuned off. Is there a better way to protect my template? (preferably without just saving the file as an excel template)

 

[diamondgeezer1974]

try this : Application.FileDialog(msoFileDialogSaveAs).Show

 

[diamondgeezer1974]

I suppose you could also set your workbook to open as Read Only, so they then ahve to save it under another filename.

 

[Smitty]

Why not just save it as a template? It's not going to give you a save dialog, but user's can't save over the original.