如何修复VBA错误“无法将” .xlsm”保存为” .xlsx””？

Question

I'm dividing a workbook in several stores.

I choose the store I want to see, and the code filters the data of the other stores and deletes that data, only leaving the data of the choosen store.

and after this I want to make a new workbook, saving as my ".xlsm" file to ".xlsx"

But after runing the code i have a pop up message asking if i want "to continue saving as a macro-free workbook"

If i click yes, i have a error saying:

1004 VB Projects and XLM sheets cannot be saved in a macro-free workbook

What can i do to fix it?

this is the code to save the new workbook:

Dim Fname As String

Fname = "02.VIM_REPORT MENSAL - " & Worksheets("aux").Range("V2") & " - " & Worksheets("aux").Range("V3") & ".xlsx"
ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlOpenXMLWorkbook

    ActiveWorkbook.Close False

Answer 1

将该代码行更改为： ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlWorkbookDefault

Answer 2

just disable Alerts.

try with

Application.DisplayAlerts = False

Dim Fname As String

Fname = "02.VIM_REPORT MENSAL - " & Worksheets("aux").Range("V2") & " - " & Worksheets("aux").Range("V3") & ".xlsx"
ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlOpenXMLWorkbook

ActiveWorkbook.Close False

Application.DisplayAlerts = True

good luck