Como forçar os usuários a salvar uma pasta de trabalho do Excel como um arquivo habilitado para macros?

Ao salvar uma pasta de trabalho do Excel, ela é salva por padrão no formato .xlsx, que não oferece suporte a macros e removerá qualquer código de macro presente na pasta de trabalho. Para manter os códigos, você deve salvar a pasta de trabalho no formato Pasta de Trabalho Habilitada para Macros do Excel. Como você pode forçar os usuários a salvarem como uma pasta de trabalho habilitada para macros?

Forçar os usuários a salvar como uma pasta de trabalho habilitada para macros com código VBA

Forçar os usuários a salvar como uma pasta de trabalho habilitada para macros com código VBA

Para garantir que a pasta de trabalho seja salva como uma pasta de trabalho habilitada para macros por padrão, você pode usar o seguinte código VBA. Por favor, siga estas etapas:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique duas vezes em ThisWorkbook na seção VBAProject para abrir um novo módulo em branco e, em seguida, copie e cole o seguinte código no módulo:

Código VBA: Forçar a salvar a pasta de trabalho como uma pasta de trabalho habilitada para macros por padrão:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub

3. Depois, salve e feche esta janela de código. A partir de agora, quando os usuários salvarem esta pasta de trabalho, ela será salva automaticamente no formato Pasta de Trabalho Habilitada para Macros do Excel, conforme mostrado na captura de tela a seguir: