It happens that I need to share my excel file but I don’t want the others to use the macro so I need to save the file into xlsx instead of xlsm. The alternative option it is to remove the macro manually but it will take too much time.
When I use the macro ?
To save a copy free of macro.
How to create the macro ?
Read How to create, edit, hide and select a macro in an excel report
How to create the button to associate it with the macro ?
Read How to create a button and associated it to a macro in an excel report
How is the macro ?
Copy the code below and paste it into your macro. You will see my comments in green if existso follow the help to adapt to your need.
Dim Newname As String
Dim OldName As String
OldName = ThisWorkbook.FullName
Newname = Left(OldName, InStrRev(OldName, ".")) & "xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Newname, xlOpenXMLWorkbook