¿Cómo guardar y cerrar un libro de trabajo después de un período de inactividad durante cierta cantidad de tiempo?
En ocasiones, podrías cerrar accidentalmente un libro de trabajo cuando estás ocupado con otros asuntos durante mucho tiempo, lo que podría hacer que se pierdan algunos datos importantes en el libro. ¿Hay algún truco para guardar y cerrar automáticamente el libro si no lo has utilizado durante un período determinado de tiempo?
Guardar y cerrar automáticamente el libro de trabajo tras un período de inactividad usando VBA
Guardar y cerrar automáticamente el libro de trabajo tras un período de inactividad usando VBA
No hay una función integrada en Excel para resolver este problema, pero puedo presentarte un código macro que puede ayudarte a guardar y cerrar el libro de trabajo después de un período de inactividad.
1. Activa el libro de trabajo que deseas guardar y cerrar automáticamente después de un período de inactividad de ciertos segundos, y presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.
2. Haz clic en Insertar > Módulo para crear un script de Módulo, y pega el siguiente código en él. Ver 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. Luego, en el panel Explorador de proyectos, haz doble clic en Este Libro de Trabajo y pega el siguiente código en el script adyacente. Ver 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. Ve a hacer doble clic en el módulo que insertaste en el paso 2, y presiona F5 para ejecutar el código. Ver captura de pantalla:
5. Luego, después de 15 segundos, aparecerá un cuadro de diálogo recordándote que guardes el libro de trabajo, y haz clic en Sí para guardar y cerrar el libro de trabajo.
Consejos:
(1) En el primer código, puedes cambiar el tiempo de inactividad a otro valor en esta cadena: Now + TimeValue("00:00:15")
(2) Si nunca has guardado el libro de trabajo antes, el cuadro de diálogo Guardar como aparecerá primero y te pedirá que lo guardes.
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