Comment enregistrer et fermer le classeur après une inactivité pendant un certain temps?

Dans certains cas, vous pouvez fermer accidentellement un classeur lorsque vous êtes occupé par d'autres affaires pendant une longue période, ce qui peut perdre certaines données importantes du classeur. Existe-t-il des astuces pour enregistrer et fermer automatiquement le classeur si vous l'avez désactivé pendant un certain temps?

Enregistrement automatique et fermeture du classeur après une certaine inactivité avec VBA

Enregistrement automatique et fermeture du classeur après une certaine inactivité avec VBA

Il n'y a pas de fonction intégrée dans Excel pour résoudre ce problème, mais je peux introduire un code de macro qui peut vous aider à enregistrer et fermer le classeur après une inactivité dans un certain temps.

1. Activez le classeur que vous souhaitez enregistrer automatiquement et fermer après une certaine inactivité pendant quelques secondes, puis appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module créer un Module script, et collez-y le code ci-dessous. Voir la capture d'écran:

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. Puis dans le Explorateur de projets volet, double-cliquez Ce cahieret collez le code ci-dessous dans le script ci-dessous. Voir la capture d'écran:

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. Cliquez deux fois sur le module que vous avez inséré à l'étape 2 et appuyez sur F5 clé pour exécuter le code. Voir la capture d'écran:

5. Ensuite, après 15 secondes, une boîte de dialogue apparaît pour vous rappeler d'enregistrer le classeur et cliquez sur Oui pour enregistrer et fermer le classeur.

Conseils:

(1) Dans le premier code, vous pouvez changer le temps d'inactivité en autre dans cette chaîne: Maintenant + TimeValue ("00:00:15")

(2) Si vous n'avez jamais enregistré le classeur auparavant, le Enregistrer sous La boîte de dialogue apparaîtra en premier et vous demandera de l'enregistrer.