SaveAs alert when change xlsm to xlsx

Hi all.

So I am very new to VBA/Macros most of my programming experience is in scripting languages like python. I have looked at previous post but nothings seems to solve my problem.

I am currently setting up an excel sheet that contains a fair amount of macros as to guide end-users when the sheet is filled in. Finally I want the sheet to be saved as a normal xlsx by the click of a bottom on the sheet.

I have a macros button that points to this :

Sub SaveAS()
ActiveWorkbook.Application.EnableEvents = False
ActiveWorkbook.Application.DisplayAlerts = False
ActiveWorkbook.SaveAS Filename:="New_Sheet.xlsx", FileFormat:=52, ConflictResolution:=xlLocalSessionChanges
MsgBox "Your Sample Sheet has been saved"
ActiveWorkbook.Application.DisplayAlerts = True
ActiveWorkbook.Application.EnableEvents = True
End Sub

This works but it still results in an alert that when saving as xlsx that macros will be removed. I was under the impression that Application.DisplayAlerts = False would disable the alerts and the SaveAs would just "happen"

Help would be appreciated

Hi Altair,

Use this code, I hope it might help you

Sub SaveAsAndClose()

ActiveWorkbook.SaveAs "finaloutput.xlsx"
ActiveWorkbook.Close

End Sub

Thanks for the replies.

Mrice I have tried your suggestions with copy the sheet to new workbook but its seems to be copying the macros with? Any suggestions on how I can copy the entire sheet without the macros? I might mentioned that the sheet contains formatting (colors etc. I will like to have copy as well)

Thanks

This is what I did in the end and it worked for me....

Sub SaveAS()
Dim wbO As Workbook
Dim wbI As Workbook
Dim wsI As Worksheet
Dim wsO As Worksheet

Set wbI = ThisWorkbook
Set wsI = wbI.Sheets("Sheet1")
Set wbO = Workbooks.Add

strPath = wbI.Path

With wbO
    Set wsO = wbO.Sheets("Sheet1")
    .SaveAS Filename:=strPath & ":" & "Test.xlsx"
    wsI.Cells.Copy
    wsO.Range("A1").PasteSpecial Paste:=xlPasteAll
    End With
Dim pic As Shape
For Each pic In wsI.Shapes
   If pic.Type = msoPicture Then
        'MsgBox pic.TopLeftCell.Address
        pic.Copy
        With wsO
        If pic.Name = "Picture 4" Then
            .Range("B1").Select
            .Paste
        Else
        .Range("C1").Select
        .Paste
        End If
        End With
   End If
Next pic

With wsO
    Cells.Select
    Selection.Locked = True
    .Protect Password:="btp"
End With

Workbooks("Test.xlsx").Close SaveChanges:=True

End Sub