Application.GetSaveAsFilename()

[gustaf111]

Hello,

I hope anybody se thsi and know the answer!

I would like to open the SaveAs dialg from vba and have the save options as I chose SaveAs from the meny ...

fileSaveName = Application.GetSaveAsFilename()
This does not open the SaveAS dialog with all options ...

please help!
Gustaf

 

[wigi]

Application.Dialogs(xlDialogSaveAs).Show

 

[Trevor G]

Look at this thread it has only been completed recently.

http://www.mrexcel.com/forum/showpost.php?p=2904478&postcount=7

 

[gustaf111]

Thanks!! But the tools menu is not avaiable ? I would like to chose the excel sheet protection

 

[wigi]

Thanks!! But the tools menu is not avaiable ? I would like to chose the excel sheet protection

This is a reply on which of the 2 suggestions? Or to both?

 

[gustaf111]

The second one

The first one, I get an error message

 

[wigi]

The second one

The first one, I get an error message

Where did you paste this code?

Did you start the procedure with a procedure name and end it correctly:

Sub TestProcedure()
  Application.Dialogs(xlDialogSaveAs).Show 
End Sub

Then run this procedure.

 

[gustaf111]

I paste the code in Workbook_BeforeSave


Application.Dialogs(xlDialogSaveAs).Show

 

[gustaf111]

Set fileSaveName = Application.FileDialog(msoFileDialogSaveAs)
fileSaveName.FilterIndex = 2 'select to save with a ".xlsm" extension
fileSaveName.Show
fileSaveName.Execute

This code works, but the tools options are not there

 

[gustaf111]

I can't get the tools menu upp in the SaveAs box