¿Cómo obligar a los usuarios a guardar como un libro de trabajo habilitado para macros?
Cuando guarde un libro de Excel, se guardará como formato de archivo xlsx de forma predeterminada, y este formato de archivo eliminará los códigos de macro del libro de trabajo si hay varios códigos. Para conservar los códigos, debe guardar el libro de trabajo con el formato de libro de Excel habilitado para macros. ¿Cómo podría obligar a los usuarios a guardar como un libro de trabajo habilitado para macros?
Obligar a los usuarios a guardar como un libro de trabajo habilitado para macros con código VBA
Obligar a los usuarios a guardar como un libro de trabajo habilitado para macros con código VBA
Para guardar el libro de trabajo como libro de trabajo habilitado para macros de forma predeterminada, el siguiente código de VBA puede ayudarlo, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga doble clic ThisWorkbook bajo el Proyecto VBA sección para abrir un nuevo módulo en blanco, y luego copie y pegue el siguiente código en el módulo:
Código de VBA: fuerza para guardar el libro de trabajo como libro de trabajo habilitado para macros de forma predeterminada:
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. Luego guarde y cierre esta ventana de código, a partir de ahora, cuando los usuarios guarden como este libro de trabajo, se guardará como Libro de Excel habilitado para macros formato de forma predeterminada como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!