Use macros button functions in xlsx

[brothaprice]

How can I save the functions for these buttons in an external vba script that I can make a call to? The macros I create gets removed when I close the xlsx file and I do not want to make it a xlsm file to work around the issue.

 

[Logit]

Not tested here :

Sub Test()
Dim wb As Workbook, wb2 As Workbook
Dim Path As String
Application.DisplayAlerts = False
Path = "C:\Users\" & Environ("Username") & "\Desktop\"
Set wb = ThisWorkbook
wb.SaveCopyAs (Path & "File.xlsm")
Set wb2 = Workbooks.Open(Path & "File.xlsm")
wb2.SaveAs Path & "File1.xlsx", xlOpenXMLWorkbook
wb2.Close
Application.DisplayAlerts = True
End Sub

after run macro to save as xlsx file, the macro file convert to xlsx file

 

[steve the fish]

Why wouldnt you want to use an xlsm??

 

[brothaprice]

Why wouldnt you want to use an xlsm??

Hi Steve. Just for end users that open my file that are only used to xlsx.

 

[brothaprice]

Hi Steve. Just for end users that open my file that are only used to xlsx.

I once created a splash page and had to use a macro workbook. I was getting funny warning messages. I am not this time. I might leave it as is.

 

[brothaprice]

Not tested here :

Sub Test()
Dim wb As Workbook, wb2 As Workbook
Dim Path As String
Application.DisplayAlerts = False
Path = "C:\Users\" & Environ("Username") & "\Desktop\"
Set wb = ThisWorkbook
wb.SaveCopyAs (Path & "File.xlsm")
Set wb2 = Workbooks.Open(Path & "File.xlsm")
wb2.SaveAs Path & "File1.xlsx", xlOpenXMLWorkbook
wb2.Close
Application.DisplayAlerts = True
End Sub

after run macro to save as xlsx file, the macro file convert to xlsx file

This is something I could try. I might test this at a later date.