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:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins