保存为xlsm格式的常规方法无效，只能使用xlsx格式的原因可能是因为xlsm格式只能用于包含宏的工作簿，而当前工作簿中没有宏的存在。如果确实需要保存为xlsm格式，可以尝试以下解决方法：

解决方法1：添加一个空的宏代码模块

Sub EmptyMacro()
    ' 空的宏代码
End Sub

将上述代码粘贴到VBA编辑器中的一个模块中，并保存工作簿为xlsm格式。

解决方法2：保存为xlsm格式并启用宏

Sub SaveAsMacroEnabled()
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Name, FileFormat:=52
End Sub

将上述代码粘贴到VBA编辑器中的一个模块中，并执行该宏，将当前工作簿保存为xlsm格式。

解决方法3：使用SaveCopyAs方法保存为xlsm格式

Sub SaveCopyAsMacroEnabled()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".xlsm")
End Sub

将上述代码粘贴到VBA编辑器中的一个模块中，并执行该宏，将当前工作簿保存为xlsm格式的副本。

请注意，在使用宏时务必谨慎，确保宏代码的安全性和可靠性。