Saving as a macro enabled excel file

[jsbean17]

I am setting up a department file that requires macros to be enabled. I have the code working to the point of opening the save as dialog box, but I am unsure as to how I can force the file type to default to macro enabled. Hopefully someone can help this beginner figure this out.

 'This ensures daily manpower is filled out



NonProdData:
    
    If Range("M12").Value = "" Or _
       Range("M13").Value = "" Or _
       Range("M14").Value = "" _
    Then
       Dim answer As Integer
         answer = MsgBox("Have You Filled Out Your Shifts Daily Manpower?", vbYesNo + vbQuestion, "Daily Manpower")
         
    If answer = vbYes Then
        With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .InitialFileName = "https://mfg.spt.ford.com/sites/mapfm/Shift Communications/January 2019/"
        If .Show = -1 Then .Execute
    End With

 

[ranman256]

you cannot. Each PC has its own settings to prevent malicious code from doing what you are trying to do.
Each person must enable macros on their PC.

 

[Yongle]

The standard workaround is
- add another sheet (SheetX)
- hide all original sheets (as VeryHidden) whenever workbook is saved
- unhiding VeryHidden sheets can only be done by VBA
- included a button on SheetX allowing user to unhide sheets
- button only works if macros are enabled