Πώς να αποθηκεύσετε και να κλείσετε το βιβλίο εργασίας μετά από αδράνεια για ένα συγκεκριμένο χρονικό διάστημα;
Σε ορισμένες περιπτώσεις, ενδέχεται να κλείσετε κατά λάθος ένα βιβλίο εργασίας όταν είστε απασχολημένοι με άλλες υποθέσεις για μεγάλο χρονικό διάστημα που ενδέχεται να χάσουν ορισμένα σημαντικά δεδομένα στο βιβλίο εργασίας. Υπάρχουν κόλπα για αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας εάν το έχετε απενεργοποιήσει για κάποιο χρονικό διάστημα;
Αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας μετά από αδράνεια για συγκεκριμένο χρονικό διάστημα με το 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) Εάν δεν έχετε αποθηκεύσει ποτέ το βιβλίο εργασίας στο παρελθόν, το Αποθήκευση ως Το παράθυρο διαλόγου θα βγει πρώτα και θα σας ζητήσει να το αποθηκεύσετε.
|
| Kutools για Excel Προστατέψτε το φύλλο εργασίας Η λειτουργία μπορεί να προστατεύσει γρήγορα πολλά φύλλα ή ολόκληρο το βιβλίο εργασίας ταυτόχρονα. |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
