保存为启用宏的工作簿

Sub SaveAsMacroEnabled()
    
    ' Build the folder path.
    
    Dim FolderLeft As String: FolderLeft = "C:\Users\Sarajevo2022"
    ' or:
    'Dim FolderLeft As String: FolderLeft = Environ("USERPROFILE")
    Dim FolderMid As String: FolderMid = "\Company Name\Coworker - OCC ENCORE\"
    
    Dim SaveDate As Date: SaveDate = Application.WorkDay(Date, -2)
    
    Dim FolderRight As String: FolderRight = Format(SaveDate, "yyyy") _
        & "\" & UCase(Format(SaveDate, "mmm yyyy")) & "\"
    Dim FolderPath As String: FolderPath = FolderLeft & FolderMid & FolderRight
    
    ' Check if the folder path exists.
    
    Dim PathExists As Boolean
    
    With CreateObject("Scripting.FileSystemObject")
        PathExists = .FolderExists(FolderPath)
    End With
    
    If Not PathExists Then
        MsgBox "The path '" & FolderPath & "' doesn't exist!" _
            & vbLf & vbLf & "File not saved!", vbCritical
        Exit Sub
    End If
    
    ' Build the file path.
    Dim FilePath As String: FilePath = FolderPath _
        & Format(SaveDate, "mmddyyyy") & " ENCORE and Floor" & ".xlsm"
    
    ' Return the paths in the Immediate window (Ctrl+G).
    Debug.Print FolderPath & vbLf & FilePath
    
    ' After you have confirmed that the paths are correct,
    ' out-comment the previous and uncomment the next line.
    'ActiveWorkbook.SaveAs FilePath, xlOpenXMLWorkbookMacroEnabled ' or 52
    
End Sub