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

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

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

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

Για αυτόματη αποθήκευση και κλείσιμο ενός αρχείου Excel μετά από συγκεκριμένο χρόνο αδράνειας, κάντε τα εξής.

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

2. Στο Microsoft Visual Basic για εφαρμογές κάντε διπλό κλικ στο Αυτό το βιβλίο εργασίας στο δεξιό τμήμα του παραθύρου για να ανοίξετε το παράθυρο κώδικα. Στη συνέχεια, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA 1: Αυτόματη αποθήκευση και κλείσιμο ενός αρχείου Excel μετά από ορισμένο χρόνο αδράνειας

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

Κωδικός VBA 2: Αυτόματη αποθήκευση και κλείσιμο ενός αρχείου Excel μετά από ορισμένο χρόνο αδράνειας

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

4. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

5. κλικ Αρχεία > Αποθήκευση ως > Αναζήτηση. Δείτε το στιγμιότυπο οθόνης:

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

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

Και το βιβλίο εργασίας θα αποθηκευτεί και θα κλείσει αυτόματα μετά από αυτόν τον καθορισμένο χρόνο αδράνειας. Δείτε το στιγμιότυπο οθόνης: