¿Cómo guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad?
En algunos casos, como dejar un archivo de Excel en un disco compartido, cuando un usuario aún abre el archivo, 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 otros? Este artículo lo ayudará con el método VBA.
Guarde y cierre automáticamente un archivo de Excel después de un cierto tiempo de inactividad con el código VBA
Para guardar y cerrar automáticamente un archivo de Excel después de un cierto tiempo de inactividad, haga lo siguiente.
1. Abra el libro de trabajo que necesita para guardarlo automáticamente y cerrarlo después de un cierto tiempo de inactividad. Luego presione el otro + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic en el ThisWorkbook en el panel derecho para abrir la ventana Código. Luego copie y pegue el código VBA debajo en la ventana Código. Ver captura de pantalla:
Código de VBA 1: guarde automáticamente y cierre 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 sigue haciendo clic recuadro > móduloy copie y pegue el código siguiente en la ventana del módulo. Ver captura de pantalla:
Código de VBA 2: guarde automáticamente y cierre 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 el otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.
5. Hacer clic en Archive > Guardar como > Explorar. Ver captura de pantalla:
6. En el Guardar como cuadro de diálogo, seleccione una carpeta para guardar el archivo, asígnele el nombre que necesite en el cuadro Nombre de archivo, seleccione Libro de Excel habilitado para macros del desplegable Guardar como tipo lista desplegable, y finalmente haga clic en el Guardar botón. Ver captura de pantalla:
De ahora en adelante, cada vez que abra este libro, un Kutools for Excel Aparecerá el cuadro de diálogo. Ingrese la hora en la que guardará y cerrará el libro de trabajo, y luego haga clic en el OK del botón.
Y el libro de trabajo se guardará y cerrará automáticamente después de ese tiempo de inactividad especificado. Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!