how to save a macro workbook but as xlsx file

[Pookiemeister]

Is there a way to save a Macro Workbook as .xlsx file? I found the following code online but when I open the converted .xlsx file, it tries to run the macros but then gives an error message "Sub function not defined" when sheet 1 is activated. This sheet does have code assigned to it. I don't want to set a password; all I want is for the user to ONLY view the file. Thanks.

Sub BackupAsXLSX()

Dim swb As Workbook: Set swb = ThisWorkbook

Dim sFilePath As String: sFilePath = swb.FullName
Dim DotPosition As Long: DotPosition = InStrRev(sFilePath, ".")
Dim dFilePath As String: dFilePath = Left(sFilePath, DotPosition) & "xlsm"
    
Application.ScreenUpdating = False

swb.Sheets.Copy
Dim dwb As Workbook: Set dwb = ActiveWorkbook
Application.DisplayAlerts = False
dwb.SaveAs Filename:=dFilePath, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
dwb.Close savechanges:=False

Application.ScreenUpdating = True

MsgBox "Excel Backup File Created with ( .xlsx) Extension.", vbInformation

End Sub

 

[Joe4]

By definition, "xlsx" files are macro/vba free files and CANNOT contain any VBA.
If you want to keep the VBA code in there, you will need to save as an "xlsm" or "xlsb" file.
If you want to save as an "xlsx", you will need to get rid of the VBA code and any General VBA modules you created in the file first.

 

[RoryA]

but when I open the converted .xlsx file, it tries to run the macros

What tries to run macros? There can't be any code in the workbook, so what is trying to run code?

 

[Pookiemeister]

When sheet1 is activated, it tries to run the ActiveX code and the Worksheet_Activate Code.

Private Sub CommandButton1_Click() 'ActiveX button
    Call ImportMostRecentFile 'ActiveX Code
End Sub

Private Sub Worksheet_Activate()
  
    Call Sheet1_Activate

End Sub

 

[RoryA]

That can't be happening in an xlsx file since that code won't be in it.