Πώς να αποθηκεύσετε και να κλείσετε το βιβλίο εργασίας μετά από αδράνεια για ένα συγκεκριμένο χρονικό διάστημα;

Σε ορισμένες περιπτώσεις, ενδέχεται να κλείσετε κατά λάθος ένα βιβλίο εργασίας όταν είστε απασχολημένοι με άλλες υποθέσεις για μεγάλο χρονικό διάστημα που ενδέχεται να χάσουν ορισμένα σημαντικά δεδομένα στο βιβλίο εργασίας. Υπάρχουν κόλπα για αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας εάν το έχετε απενεργοποιήσει για κάποιο χρονικό διάστημα;

Αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας μετά από αδράνεια για συγκεκριμένο χρονικό διάστημα με το VBA

Αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας μετά από αδράνεια για συγκεκριμένο χρονικό διάστημα με το VBA

Δεν υπάρχει ενσωματωμένη λειτουργία στο Excel για την επίλυση αυτού του προβλήματος, αλλά μπορώ να εισαγάγω έναν κώδικα μακροεντολής που μπορεί να σας βοηθήσει να αποθηκεύσετε και να κλείσετε το βιβλίο εργασίας μετά από αδράνεια σε μια συγκεκριμένη χρονική στιγμή.

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να αποθηκεύσετε αυτόματα και να κλείσετε μετά από αδράνεια για ορισμένα δευτερόλεπτα και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα Μονάδα μέτρησης σενάριο και επικολλήστε τον παρακάτω κώδικα σε αυτό. Δείτε το στιγμιότυπο οθόνης:

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. Στη συνέχεια, στο Εξερεύνηση έργου παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίαςκαι επικολλήστε τον παρακάτω κώδικα στο πλάι του σεναρίου. Δείτε το στιγμιότυπο οθόνης:

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. Πηγαίνετε στο διπλό κλικ στη μονάδα που έχετε εισαγάγει στο βήμα 2 και πατήστε F5 κλειδί για την εκτέλεση του κώδικα. Δείτε το στιγμιότυπο οθόνης:

5. Στη συνέχεια, μετά από 15 δευτερόλεπτα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει την αποθήκευση του βιβλίου εργασίας και κάντε κλικ στο Ναι για αποθήκευση και κλείσιμο του βιβλίου εργασίας.

Συμβουλές:

(1) Στον πρώτο κώδικα, μπορείτε να αλλάξετε το χρόνο αδράνειας σε άλλο σε αυτήν τη συμβολοσειρά: Τώρα + TimeValue ("00:00:15")

(2) Εάν δεν έχετε αποθηκεύσει ποτέ το βιβλίο εργασίας στο παρελθόν, το Αποθήκευση ως Το παράθυρο διαλόγου θα βγει πρώτα και θα σας ζητήσει να το αποθηκεύσετε.