¿Cómo comprobar si un libro de trabajo está guardado?
Cuando abres un nuevo libro de trabajo, podrías olvidarte de guardarlo, y sería molesto si cierras el libro de trabajo accidentalmente. Pero, ¿cómo puedes verificar si un libro de Excel ha sido guardado?
Comprobar si un libro de trabajo está guardado o no con código VBA
Comprobar si un libro de trabajo está guardado o no con código VBA
Para comprobar si un libro de trabajo está guardado o no, el siguiente código VBA puede ayudarte, por favor sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Comprobar si un libro de trabajo está guardado o no:
Sub filesaved()
'Updateby Extendoffice 20161109
Dim sLastTime As String
On Error GoTo EHandler
sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
MsgBox sLastTime, vbInformation, "Kutools for Excel"
Exit Sub
EHandler:
MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub
3. Luego presiona la tecla F5 para ejecutar este código, obtendrás los siguientes cuadros de diálogo:
(1.) Si el libro de trabajo ha sido guardado, aparecerá un cuadro de diálogo indicándote la última hora en que se guardó tu libro de trabajo:
(2.) Si el libro de trabajo no ha sido guardado, obtendrás el siguiente cuadro de diálogo:
Las mejores herramientas de productividad para Office
Mejora tu dominio de 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 incorpora la interfaz de pestañas en 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 hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos