Note: The other languages of the website are Google-translated. Back to English

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

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

Αυτόματη αποθήκευση και κλείσιμο του βιβλίου εργασίας μετά από αδράνεια για συγκεκριμένο χρονικό διάστημα με το 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

 

doc αποθηκεύστε κοντά το βιβλίο εργασίας μετά την αδράνεια 1

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

 

doc αποθηκεύστε κοντά το βιβλίο εργασίας μετά την αδράνεια 2

4. Πηγαίνετε στο διπλό κλικ στη μονάδα που έχετε εισαγάγει στο βήμα 2 και πατήστε F5 κλειδί για την εκτέλεση του κώδικα. Δείτε το στιγμιότυπο οθόνης:
doc αποθηκεύστε κοντά το βιβλίο εργασίας μετά την αδράνεια 3

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

Συμβουλές:

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

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


καλός Προστατέψτε το φύλλο εργασίας

Kutools για Excel Προστατέψτε το φύλλο εργασίας Η λειτουργία μπορεί να προστατεύσει γρήγορα πολλά φύλλα ή ολόκληρο το βιβλίο εργασίας ταυτόχρονα.
doc προστατεύει πολλά φύλλα εργασίας

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (11)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο παραπάνω κωδικός δεν λειτουργεί όταν ένα κελί είναι ενεργό. Αυτό είναι

1. Εισαγάγετε μια τιμή στο κελί (μην πατήσετε Enter ή tab)

2. ελαχιστοποιήστε το excel.

Σε αυτήν την περίπτωση ο κωδικός δεν λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν εργάζεστε σε ένα ξεχωριστό βιβλίο εργασίας στο σημείο όπου φτάνει η ώρα κλεισίματος, τότε θα κλείσει αυτό το βιβλίο εργασίας και όχι το ανενεργό. Αυτό μπορεί να λυθεί προσαρμόζοντας τον κώδικα σε:

Dim CloseTime As Date
Dim WKB As String
Sub TimeSetting()
WKB = ActiveWorkbook.Name
CloseTime = Now + TimeValue ("00:00:15")
On Error Συνέχιση Επόμενη
Application.OnTime EarliestTime:=CloseTime, _
Διαδικασία:="SavedAndClose", Χρονοδιάγραμμα:=Αληθ
Sub End
Sub TimeStop()
On Error Συνέχιση Επόμενη
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
Sub End
Sub SavedAndClose()
Βιβλία εργασίας (WKB). Κλείσιμο Savechanges:=True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Παρατήρησα το ίδιο πράγμα. Και βρήκα την ίδια λύση :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μερικές φορές αντιμετωπίζω ένα "Σφάλμα χρόνου εκτέλεσης" όταν ανοίγω το βιβλίο εργασίας που έχει ενσωματωμένο αυτόν τον κώδικα. Τέλος πάντων να γράψω αυτόν τον κώδικα καλύτερα για να είναι πιο σταθερός;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
λαμπρό ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια, θέλω να εισάγω αυτόν τον κωδικό σε έναν άλλο κωδικό, όπως τον κωδικό λήξης με αυτόν τον κωδικό, πώς μπορώ να κάνω...;
ο κωδικός είναι...ακολουθεί
Ιδιωτικό Sub Workbook_Open ()

Dim exdate As Date
Dim i ως ακέραιο

«τροποποιήστε τις τιμές για την ημερομηνία λήξης εδώ !!!
anul = έτος 2019
luna = 5 'μήνας
ziua = 16 'ημέρα

exdate = DateSerial (anul, luna, ziua)

Αν Ημερομηνία > εξάλειψη Τότε
MsgBox ("Η εφαρμογή " & ThisWorkbook.Name & " έχει λήξει !" & vbNewLine & vbNewLine _
& "Η ημερομηνία ρύθμισης λήξης είναι: " & exdate & " :)" & vbNewLine & vbNewLine _
& "Επικοινωνήστε με τον διαχειριστή για να ανανεώσετε την έκδοση!"), vbCritical, ThisWorkbook.Name

expired_file = ThisWorkbook.Path & "\" & ThisWorkbook.Name

Στο Error GoTo ErrorHandler
Με βιβλία εργασίας (ThisWorkbook.Name)
Αν .Διαδρομή <> "" Τότε

.Αποθηκευμένο = Αληθινό
.ChangeFileAccess xlReadOnly

Σκοτώστε το expired_file

'πάρτε το όνομα του πρόσθετου εάν είναι addin και unistall addin
Εάν Application.Version >= 12 Τότε
i = 5
Άλλο: i = 4
End If

If Right(ThisWorkbook.Name, i) = ".xlam" Or Right(ThisWorkbook.Name, i) = ".xla" Τότε
wbName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - i)
«Καταργήστε την εγκατάσταση του πρόσθετου εάν είναι εγκατεστημένο
Εάν το AddIns(wbName).Εγκατεστημένος Τότε
AddIns(wbName).Installed = False
End If
End If

.Κοντά

End If
Τέλος με

Έξοδος Sub

End If

'MsgBox ("Έχετε " & exdate - Ημερομηνία & "Απομένουν ημέρες")
Έξοδος Sub

Εργαλείο χειρισμού σφαλμάτων:
MsgBox "Αποτυχία διαγραφής αρχείου..."
Έξοδος Sub

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν εργάζεστε σε ένα ξεχωριστό βιβλίο εργασίας στο σημείο όπου φτάνει η ώρα κλεισίματος, τότε θα κλείσει αυτό το βιβλίο εργασίας και όχι το ανενεργό. Αυτό μπορεί να λυθεί προσαρμόζοντας τον κώδικα σε: - διορθώθηκε και δοκιμάστηκε από το παρακάτω σχόλιο - χρησιμοποιήστε αυτόν τον κωδικό:

Εισαγάγετε σε "Αυτό το βιβλίο εργασίας"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Καλέστε το TimeStop
Sub End
Ιδιωτικό Sub Workbook_Open ()
Ρύθμιση χρόνου κλήσης
Sub End
Private Sub Workbook_SheetChange (ByVal Sh ως αντικείμενο, ByVal Target As Range)
Καλέστε το TimeStop
Ρύθμιση χρόνου κλήσης
Sub End


Μπείτε στο "module":

Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue ("00:10:00")
On Error Συνέχιση Επόμενη
Application.OnTime EarliestTime:=CloseTime, _
Διαδικασία:="SavedAndClose", Χρονοδιάγραμμα:=Αληθ
Sub End
Sub TimeStop()
On Error Συνέχιση Επόμενη
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
Sub End
Sub SavedAndClose()
ThisWorkbook.Close Savechanges:=True
Sub End


μπορείτε να αλλάξετε τη ρύθμιση ώρας αλλάζοντας CloseTime = Now + TimeValue("00:10:00") - έχει οριστεί σε 10 λεπτά, αλλάξτε το ("00:10:00") σε όποια ώρα θέλετε και λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν είμαι σίγουρος τι συνέβη, αλλά αυτή η λύση δεν λειτουργεί πλέον. Εδώ είναι η επιδιόρθωση αυτής της λύσης που λειτούργησε για μένα:

````
Επαναφορά θαμπώματος Μετρήστε όσο διαρκεί

Δημόσιο δευτερεύον βιβλίο εργασίας_Άνοιγμα()
On Error Συνέχιση Επόμενη
Σετ xWB = This Workbook
resetCount = 0
Sub End

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)On Error Resume Next
Επαναφορά
Sub End

Sub Reset()On Error Resume Next
Στατικό xCloseTime
Αν επαναφέρετε Μετρήστε <> 0 Τότε
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Schedule:=False
resetCount = resetCount + 1
xCloseTime = DateAdd("n", 15, Τώρα)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Schedule:=True

Αλλού
resetCount = resetCount + 1
xCloseTime = DateAdd("n", 15, Τώρα)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Schedule:=True
End If
Sub End
````
Αυτό χρησιμοποιεί το ίδιο SaveWork1 ως:
````Sub SaveWork1()
Application.DisplayAlerts = False
This Workbook.Save
Αυτό το βιβλίο εργασίας. Κλείσιμο

Application.DisplayAlerts = True
Sub End

````
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι υπέροχο. Υπάρχουν συμβουλές για την προσθήκη ενός αναδυόμενου πλαισίου μηνύματος που θα προειδοποιεί τον χρήστη ότι το φύλλο πρόκειται να κλείσει και θα του δώσει την επιλογή να επαναφέρει το χρονόμετρο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν δεν θέλω να κάνω επεξεργασία και θέλω απλώς να συμβουλευτώ, το αρχείο εξακολουθεί να κλείνει. Δεν πρέπει να κλείσει. Πρέπει να ξαναρχίσει η μέτρηση όταν επιλέγω κελιά. Ποια είναι η λύση?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν δεν θέλω να κάνω επεξεργασία και θέλω απλώς να συμβουλευτώ, το αρχείο εξακολουθεί να κλείνει. Δεν πρέπει να κλείσει. Πρέπει να ξαναρχίσει η μέτρηση όταν επιλέγω κελιά. Ποια είναι η λύση?
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL