¿Cómo obligar a los usuarios a guardar un libro de Excel como un archivo habilitado para macros?
Cuando guardas un libro de Excel, por defecto se guarda en el formato de archivo .xlsx, que no es compatible con macros y eliminará cualquier código de macro en el libro. Para mantener los códigos, deberías guardar el libro en el formato Libro de Excel Habilitado para Macros. ¿Cómo podrías forzar a los usuarios a guardar como un libro habilitado para macros?
Obligar a los usuarios a guardar como un libro habilitado para macros con código VBA
Obligar a los usuarios a guardar como un libro habilitado para macros con código VBA
Para asegurar que el libro se guarde como un libro habilitado para macros por defecto, puedes usar el siguiente código VBA. Por favor, sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego haz doble clic en ThisWorkbook bajo la sección VBAProject para abrir un nuevo módulo en blanco, y luego copia y pega el siguiente código en el módulo:
Código VBA: Forzar a guardar el libro como libro habilitado para macros por defecto:
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 guarda y cierra esta ventana de código. A partir de ahora, cuando los usuarios guarden este libro, se guardará en el formato Libro de Excel Habilitado para Macros por defecto, como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!