Comment enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité ?

Dans certains cas, par exemple lorsqu'un fichier Excel est laissé sur un disque partagé, si le fichier est toujours ouvert par un utilisateur, les autres ne peuvent pas modifier le classeur. Alors, comment fermer automatiquement le fichier après une certaine période d'inactivité afin de faciliter le travail des autres ? Cet article vous aidera avec une méthode VBA.

Enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité avec du code VBA

Enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité avec du code VBA

Pour enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité, veuillez suivre les étapes ci-dessous.

1. Ouvrez le classeur que vous souhaitez enregistrer et fermer automatiquement après une certaine période d'inactivité. Ensuite, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisWorkbook dans le volet de droite pour ouvrir la fenêtre Code. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir capture d'écran :

Code VBA 1 : Enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité

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. Continuez en cliquant sur Insertion > Module, puis copiez et collez le code ci-dessous dans la fenêtre Module. Voir capture d'écran :

Code VBA 2 : Enregistrer et fermer automatiquement un fichier Excel après une certaine période d'inactivité

Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

4. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

5. Cliquez sur Fichier > Enregistrer sous > Parcourir. Voir capture d'écran :

6. Dans la boîte de dialogue Enregistrer sous, sélectionnez un dossier pour enregistrer le fichier, nommez-le comme vous le souhaitez dans la zone Nom du fichier, choisissez Classeur Excel prenant en charge les macros dans la liste déroulante Spécifier le format d'enregistrement, puis cliquez sur le bouton Enregistrer. Voir capture d'écran :

Dès maintenant, à chaque fois que vous ouvrirez ce classeur, une boîte de dialogue Kutools for Excel apparaîtra. Veuillez entrer le temps après lequel vous souhaitez enregistrer et fermer le classeur, puis cliquez sur le bouton OK.

Le classeur sera automatiquement enregistré et fermé après cette période d'inactivité spécifiée. Voir capture d'écran :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !