¿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

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 Sub

4. 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.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!