VBA Guardar como al abrir archivo .XLSM

H o l a:

Pon la siguiente macro en los eventos de Thisworkbook

Private Sub Workbook_Open()
'Por.Dante Amor
    ruta = ThisWorkbook.Path & "\"
    nombre = ThisWorkbook.Name
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Guardar archivo como"
        .AllowMultiSelect = False
        .InitialFileName = ruta & nombre
        .FilterIndex = 2
        If .Show Then
            march = .SelectedItems(1)
            If Right(march, 4) <> "xlsm" Then
                Application.DisplayAlerts = False
                MsgBox "Debe guardar el libro habilitado para macros"
                ActiveWorkbook.Close False
            End If
            ActiveWorkbook.SaveAs Filename:=march & ".xlsm", _
                FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Else
            Application.DisplayAlerts = False
            MsgBox "El archivo no se guardó"
            ActiveWorkbook.Close False
        End If
    End With
End Sub

El archivo lo deben abrir habilitado para macros, de lo contrario la macro no se ejecutará, y por lo tanto el archivo original estará abierto.

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )