Save As Macro Enabled Workbook

[CC268]

Hey guys,

I would like to create a VBA code that simply opens the Save As dialog window (in order to type your desired file name) and saves it as a Macro Enabled Workbook.

Thanks

 

[CC268]

Why do you need the pop-up window? You could save it directly since you're using the Activeworkbook's full name:

Dim fName As String

fName = ActiveWorkbook.FullName & "_" & Format(today, "DD-MM-YYYY") & ".xlsm"

' FileSaveName = Application.GetSaveAsFilename(InitialFileName:=fName, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
' If FileSaveName <> False Then ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=52

ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=52

I don't, but I would like the user to be able to choose the filename they want. But being able to start with the current file name + date added to the end is a nice place to start.

 

[JackDanIce]

Try:

Dim tDate As String
Dim FileSaveName As String
Dim fName As String

fName = ActiveWorkbook.FullName & "_" & Format(today, "DD-MM-YYYY")
FileSaveName = Application.GetSaveAsFilename(InitialFileName:=fName, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
If len(FileSaveName) > 0 Then ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=52

 

[mikerickson]

Try this

Application.Dialogs(xlDialogSaveAs).Show , xlOpenXMLWorkbookMacroEnabled

 

[CC268]

Try this

Application.Dialogs(xlDialogSaveAs).Show , xlOpenXMLWorkbookMacroEnabled

This works, but is there a way to have the current file name in the Save As dialog box instead of having to type a new one?

 

[CC268]

Try:

Dim tDate As String
Dim FileSaveName As String
Dim fName As String

fName = ActiveWorkbook.FullName & "_" & Format(today, "DD-MM-YYYY")
FileSaveName = Application.GetSaveAsFilename(InitialFileName:=fName, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
If len(FileSaveName) > 0 Then ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=52

Unfortunately again:

1. No file name shows up in the save as box - have to type your own name
2. If you press the cancel button it still saves the file.

Mike's solution below works, but would like to get it to pre-populate the save as dialog box with the current file name.

 

[CC268]

Try this

Application.Dialogs(xlDialogSaveAs).Show , xlOpenXMLWorkbookMacroEnabled

Disregard my previous comment - it appears this works! Thanks!