Need help to save all open XLSM to XLSX on either Windows or Mac

[randyharris]

I've been working on this and just can't make any headway.

This needs to run on Windows or Mac platforms, both.

I would like to save all open Excel files which are all XLSM to file type 51, XLSX, closing out each file as it saves.
Do not need to delete the original file, it can remain.
Would like to save the new XLSX version in the same location as the current XLSM file.
Need to bypass any warnings, just want to start the Macro and have it save all the open XLSM files to file type XLSX without VBA code.

Thanks so much for any help.

 

[randyharris]

Trying to get just a single file to save as the new format, can't get it working...

Sub SaveAsXLSX()
    
    Dim newFileName As String
    Dim wsPath As String
    
    wsPath = Application.ThisWorkbook.Path
    newFileName = ThisWorkbook.FullName
    
    'Test the conditional compiler constant #Mac
    #If Mac Then
    'I am a Mac
    
    #If MAC_OFFICE_VERSION >= 15 Then
    filePermissionCandidates = Array(wsPath)
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)
    #End If

    Application.DisplayAlerts = False
    
    ThisWorkbook.SaveAs FileName:=wsPath & newFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close

    Application.DisplayAlerts = True

    #Else
    'I am Windows
        MsgBox "Call Windows_Macro"
    #End If

End Sub