Como forçar os usuários a salvar como uma pasta de trabalho habilitada para macro?
Quando você salva uma pasta de trabalho do Excel, ela é salva como formato de arquivo xlsx por padrão e esse formato de arquivo se livra dos códigos de macro da pasta de trabalho se houver vários códigos. Para manter os códigos, você deve salvar a pasta de trabalho no formato de pasta de trabalho habilitada para macro do Excel. Como você poderia forçar os usuários a salvar como uma pasta de trabalho habilitada para macro?
Força os usuários a salvar como uma pasta de trabalho habilitada para macro com código VBA
Força os usuários a salvar como uma pasta de trabalho habilitada para macro com código VBA
Para salvar a pasta de trabalho como uma pasta de trabalho habilitada para macro por padrão, o seguinte código VBA pode ajudá-lo, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Em seguida, clique duas vezes Esta pasta de trabalho sob a Projeto VBA seção 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 para salvar a pasta de trabalho como pasta de trabalho habilitada para macro 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. Em seguida, salve e feche esta janela de código, a partir de agora, quando os usuários salvarem como esta pasta de trabalho, ela será salva como Pasta de trabalho habilitada para macro do Excel formato por padrão, conforme mostrado a seguir:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!