Force save file opened as xltm to xlsm

[inquisitor]

I've seen various code snippets that purport to force a file to save as xltm from xslm, but I can't make them work. I wonder if I'm attaching them properly to the file? If you read that and think "those words don't even make sense together," then you've got a good handle on my level of understanding.

I'm using Excel for Mac (16.35). I'm going to "view code" after right-clicking on the tab I'm on, selecting ThisWorkbook and pasting any number of code snippets that *look* like they should work, but don't. When I exit the editor and hit Cmd-S, I get the save-as prompt and xlsx is selected, not xlsm. How do I correct this?

 

[inquisitor]

I keep getting close but not quite there ... I'm using this for reference:

Force users to save as .xlsm or xltm only

Hello, I have a macro which forces users to save the excel file as macro-enabled file (.xlsm) and I want to add macro-enabled template (.xltm). I just can't get it to work. I have tried to add .xltm as you can see in code below. I have also included the working .xlsm line in green, as that...

www.mrexcel.com

I'm noticing if I hit Cmd-S, it doesn't trigger the macro. If I choose File->Save As... I get an error box saying Runtime Error 1004 - Method 'GetSaveAsFilename' of object '_Application' failed.


Code I'm using:

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim txtFileName As String
' Check if user has selected Save As
If SaveAsUI = True Then
Cancel = True
' Call modified dialog box. Cancel if user selects Cancels in the dialog box.
' txtFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As XLSM file")
txtFileName = Application.GetSaveAsFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm, Excel Macro-Enabled Template (*.xltm), *.xltm", Title:="Save As...")
If txtFileName = "False" Then
MsgBox "Action Cancelled", vbOKOnly
Cancel = True
Exit Sub
End If
' file is saved as XLSM macro-enabled file
Application.EnableEvents = False
ThisWorkbook.SaveAs FileName:=txtFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
End If
End Sub

What am I doing wrong?