请尝试以下代码：

Sub SubMacroFreeSave()
    
    'Declarations.
    Dim path As String
    Dim filename1 As String
    Dim file As Variant
    
    'Settings path as current project that the User opened.
    path = ThisWorkbook.path & "\"
    
    'Setting filename1 as name of the current project that the User opened followed by the yesterday's date.
    filename1 = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, ".")))) - 1) & " " & Excel.WorksheetFunction.Text(Now - 1, "dd-mm-yyyy")
    
    'Turning off the screen updating.
    Application.ScreenUpdating = False
    
    'Turning off the display alerts.
    Application.DisplayAlerts = False
    
    'Saving a copy of the file as xlsm.
    ActiveWorkbook.SaveCopyAs Filename:=path & filename1 & ".xlsm"
    
    'Setting file as the copy just created.
    Set file = Application.Workbooks.Open(path & filename1 & ".xlsm")
    
    'Saving the copy again as a macro-free file.
    file.SaveAs Filename:=path & filename1 & ".xlsx", _
                FileFormat:=xlWorkbookDefault, _
                CreateBackup:=False
    
    'Deleting the first copy of the file.
    Kill path & filename1 & ".xlsm"
    
    'Closing the file (the macros will still be avaiable until the file is closed).
    file.Close
    
    'Turning on the display alerts.
    Application.DisplayAlerts = True
    
    'Turning on the screen updating.
    Application.ScreenUpdating = True
    
End Sub