¿Cómo guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad?
En algunos casos, como al dejar un archivo de Excel en un disco compartido, cuando el archivo sigue abierto por un usuario, otros no pueden editar el libro. Entonces, ¿cómo cerrar automáticamente el archivo después de un cierto tiempo de inactividad para facilitar el trabajo de los demás? Este artículo te ayudará con un método VBA.
Guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad con código VBA
Para guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad, siga los pasos a continuación.
1. Abra el libro que necesita guardar y cerrar automáticamente después de un cierto tiempo de inactividad. Luego presione las teclas Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisWorkbook en el panel derecho para abrir la ventana de Código. Luego copie y pegue el siguiente código VBA en la ventana de Código. Ver captura de pantalla:
Código VBA 1: Guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Luego continúe haciendo clic en Insertar > Módulo, y copie y pegue el siguiente código en la ventana del Módulo. Ver captura de pantalla:
Código VBA 2: Guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Presione simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
5. Haga clic en Archivo > Guardar como > Examinar. Ver captura de pantalla:
6. En el Guardar como cuadro de diálogo, seleccione una carpeta para guardar el archivo, asígnele un nombre según sea necesario en el cuadro Nombre de archivo, seleccione Libro de Excel habilitado para macros en la lista desplegable Especificar formato de guardado y, finalmente, haga clic en el botón Guardar. Ver captura de pantalla:
A partir de ahora, cada vez que abra este libro, aparecerá un cuadro de diálogo de Kutools para Excel. Por favor, ingrese el tiempo en el que desea guardar y cerrar el libro, y luego haga clic en el botón Aceptar.
Y el libro se guardará y cerrará automáticamente después de ese tiempo de inactividad especificado. Ver captura de pantalla:
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
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