Force to Save As Macro Enabled Workbook

[mab1284]

Is there a way to modify the code below to force the dialog box to open to "Save As Type" Macro-Enabled Workbook (*.xlsm). Code is part of UserBox that tells user they must save file before continuing.

Private Sub SaveFile_Click()
Application.Dialogs(xlDialogSaveAs).Show (would like to force as xlsm)
frm.Hide
End Sub

 

[delaneyjm]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim varName As Variant
    varName = Application.GetSaveAsFilename _
        (InitialFileName:="", _
        FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", _
        Title:="Save As")
    If varName = False Or Cancel = True Then
        Exit Sub
    Else
        ThisWorkbook.SaveAs Filename:=varName
    End If
End Sub

Code goes into the ThisWorkbook module, not a standard module.