Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim 기존파일 As String
    Dim 파일명 As String

    With ThisWorkbook

        If Not .Saved Then
    
            If .FileFormat = 51 Then
    
                Application.DisplayAlerts = False
                    
                    기존파일 = .FullName
                    
                    파일명 = Left(.Name, Len(.Name) - Len(".xlsx"))
                    .SaveAs .Path & "\" & 파일명 & ".xlsm", 52
                    
                    Kill 기존파일
                
                Application.DisplayAlerts = True
    
            Else
    
                ThisWorkbook.Save
    
            End If
        
        End If
        
    End With
    
End Sub