Save a macro excel file into a normal excel file to disable all macros using a macro in an excel report

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.

macro excel

 

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.

Sub test()
Dim Newname As String
Dim OldName As String
OldName = ThisWorkbook.FullName
Newname = Left(OldName, InStrRev(OldName, ".")) & "xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Newname, xlOpenXMLWorkbook
ThisWorkbook.Close SaveChanges:=True
End Sub

Interesting Management