Forcing to save excelfile as .xlsm

J don't want the user to save excelfile as .xls/.xlsx/.xlsb ...

Is it possible to force saving a excelfile as .xlsm using VBA?

You could probably 'hijack' the save process with the Workbook_BeforeSave event.

This would allow you to display your own dialog with only xlsm as an option and then ensure the selected name and file were saved as such. Like so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fName As String

fName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
If fName = "False" Then
MsgBox "You pressed cancel", vbOKOnly
Cancel = True
End If

Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True

End Sub

Thank you!

It works for me!