Save a workbook as a macro enabled workbook by VBA

[Shweta]

Hi All,

Please help me out on the following scenario.

I am using the following code to save a workbook as a macro enable workbook on the selected path as today's date. But it is being saved as a macro free workbook.

Below is the code in module:


Sub save_file()
Dim tDate As String
Dim FileSaveName As String
Dim fPath As String
tDate = VBA.Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yyyy")
'FileSaveName = Application.GetSaveAsFilename(InitialFileName:=tDate, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count <> 0 Then
fPath = .SelectedItems(1) & "\"
ActiveWorkbook.SaveAs fPath & tDate & ".xlsm"
End If
End With
End Sub


Any help would be appreciated! Thanks!

Regards,
Shweta

 

[VoG]

Try

ActiveWorkbook.SaveAs Filename:=fPath & tDate & ".xlsm", FileFormat:=52

 

[prajul89]

ActiveWorkbook.SaveAs fPath & tDate & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

try this.

 

[Shweta]

Thanks VoG & prajul!

your code is working fine.

Thanks for your quick response.

Regards,
Shweta

 

[VoG]

you are welcome. You might find this helpful http://www.rondebruin.nl/saveas.htm

 

[powercell99]

What if you want to create a new Macro Enable Workbook with an Open even Macro to display a message on opening? How do you add that module to the new workbook programatically?