¿Cómo guardar y cerrar el libro de trabajo tras un período de inactividad?
¿Existe algún truco para guardar y cerrar automáticamente un libro de trabajo si ha permanecido inactivo durante un tiempo determinado, evitando así la posible pérdida de datos importantes tras cerrarlo accidentalmente mientras está ocupado con otras tareas?
Guardar y cerrar automático del libro de trabajo tras un periodo de inactividad mediante VBA
Guardar y cerrar automático del libro de trabajo tras un periodo de inactividad mediante VBA
Excel no dispone de una función integrada para resolver este problema, pero puedo ofrecerle un código de macro que le ayudará a Guardar y cerrar el libro de trabajo tras un periodo de inactividad determinado.
1. Abra el libro de trabajo que desea guardar y cerrar automáticamente tras unos segundos de inactividad y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo para crear un script de Módulo y pegue el siguiente código en él. Vea la captura de pantalla:
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:15")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ActiveWorkbook.Close Savechanges:=True
End Sub
3. A continuación, en el panel del Explorador de proyectos, haga doble clic en Este libro y pegue el siguiente código junto al script existente. Vea la captura de pantalla:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimeStop
End Sub
Private Sub Workbook_Open()
Call TimeSetting
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call TimeStop
Call TimeSetting
End Sub
4. Vaya al módulo que insertó en el paso 2, haga doble clic en él y pulse la tecla F5 para ejecutar el código. Consulte la captura de pantalla:
5. Transcurridos 15 segundos, aparecerá un cuadro de diálogo recordándole que guarde el libro de trabajo; haga clic en Sí para guardar y cerrar el libro.
Consejos:
(1) En el primer código, puede modificar el tiempo de inactividad en esta cadena:Now + TimeValue("00:00:15")
(2) Si nunca ha guardado antes el libro de trabajo, aparecerá primero el cuadro de diálogo Guardar como para que lo guarde.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos