Μετάβαση στο κύριο περιεχόμενο

Πώς να ελέγξετε γρήγορα εάν ένα αρχείο (βιβλίο εργασίας) είναι ανοιχτό ή κλειστό στο Excel;

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

Ελέγξτε εάν ένα βιβλίο εργασίας είναι ανοιχτό ή κλειστό με VBA

Ελέγξτε εάν ένα βιβλίο εργασίας είναι ανοιχτό ή κλειστό με το Kutools για Excel καλή ιδέα3


Ελέγξτε εάν ένα βιβλίο εργασίας είναι ανοιχτό ή κλειστό με VBA

Εδώ είναι ένας κωδικός VBA που μπορείτε να εκτελέσετε για να ελέγξετε εάν ένα συγκεκριμένο βιβλίο εργασίας είναι ανοιχτό ή κλειστό.

1. Τύπος Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και στη συνέχεια αντιγράψτε και επικολλήστε το VBA στο νέο Μονάδα μέτρησης παράθυρο.

VBA: Ελέγξτε εάν ένα βιβλίο εργασίας είναι ανοιχτό ή κλειστό

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Και πατήστε F5 για να εκτελέσετε αυτό το vba και εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι το συγκεκριμένο βιβλίο εργασίας είναι ανοιχτό ή όχι.
Έλεγχος εγγράφου εάν ένα αρχείο ανοίγει     Έλεγχος εγγράφου εάν ένα αρχείο ανοίγει

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


Ελέγξτε εάν ένα βιβλίο εργασίας είναι ανοιχτό ή κλειστό με το Kutools για Excel

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

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools > Πλοήγηση για να ενεργοποιήσετε το παράθυρο πλοήγησης. Δείτε το στιγμιότυπο οθόνης:
Έλεγχος εγγράφου εάν ένα αρχείο ανοίγει

2. Στη συνέχεια κάντε κλικ στο κουμπί Βιβλίο & φύλλο εργασίας για να επεκτείνετε το παράθυρο για να μεταβείτε Βιβλίο & φύλλο εργασίας Ενότητα. Και μπορείτε να δείτε όλα τα ανοιχτά βιβλία εργασίας στην επάνω λίστα. Δείτε το στιγμιότυπο οθόνης:
Έλεγχος εγγράφου εάν ένα αρχείο ανοίγει

Με Πλοήγηση παράθυρο, μπορείτε επίσης να αλλάξετε γρήγορα μεταξύ των βιβλίων εργασίας ή των φύλλων στη λίστα.

Κάντε κλικ εδώ για να μάθετε περισσότερα για την Πλοήγηση.

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't work when the file has macros
This comment was minimized by the moderator on the site
I add this to my code but im having some issues...

I use ur function to check if a workbook with i take some information from is already open or not, if it is open, the macro msgbox the user, telling him to close the workbook and restart the macro, till here, everything ok, the problem is, after closing the workbook and restarting the macro, it keeps saying the workbook is open while its not, any tips?


Code:


Sub Check_BKG()

Set wa = Nothing

Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
If Confirmação = vbNo Then Exit Sub

'--------------------------------------------------------------------------------------------'
'////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'
Dim xRet As Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
If xRet Then
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "The EXSH0101 file is already open, please close it before restart the macro.", vbInformation, "EXSH0101 ERROR"
Exit Sub
End If
'--------------------------------------------------------------------------------------------'
'////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'--------------------------------------------------------------------------------------------'

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Call Abrir_Arquivos

Call Setando_EXSH

Call Inserir_Formulas

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

wb.Sheets("Inserir").Activate

End Sub
This comment was minimized by the moderator on the site
Just want to make sure everyone is aware, the "IsWorkBookOpen" function will only be able to tell if a workbook is open in the current instance of Excel. If you have multiple instances open you would need to run it on each instance to be sure the workbook is (not) open, using this code alone.
This comment was minimized by the moderator on the site
Thanks for your reminder.
This comment was minimized by the moderator on the site
Wow, super VBA, simple and works. Thank you very much :)
This comment was minimized by the moderator on the site
Excellent VBA, works great. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations