Ana içeriğe atla

Excel'de bir dosyanın (çalışma kitabının) açık veya kapalı olup olmadığını hızlı bir şekilde nasıl kontrol edebilirim?

Excel günlük çalışması, çalışmak için aynı anda birden çok çalışma kitabı açarsınız, ancak bazen yüzlerce çalışma kitabı, belirli bir çalışma kitabının açık mı yoksa kapalı mı olduğunu hatırlamak için kafanızı karıştırabilir. Dosyaları tek tek kontrol etmenin geleneksel yönteminden vazgeçin, burada size bir çalışma kitabının açık veya kapalı olduğunu hızlı bir şekilde bulmanın püf noktalarını tanıtacağım.

VBA ile bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

Bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin Kutools for Excel iyi fikir3

VBA ile bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

İşte belirli bir çalışma kitabının açık veya kapalı olup olmadığını kontrol etmek için çalıştırabileceğiniz bir VBA kodu.

1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül ve sonra VBA'yı kopyalayıp yeni modül pencere.

VBA: Çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin

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. Ve tuşuna basın F5 Bu vba'yı çalıştırmak için anahtar ve belirli çalışma kitabının açık olup olmadığını size hatırlatmak için bir iletişim kutusu açılır.
doc bir dosyanın açık olup olmadığını kontrol edin 1     doc bir dosyanın açık olup olmadığını kontrol edin 2

Bahşiş: Yukarıdaki VBA'da "birleştirmek"Kontrol etmek istediğiniz çalışma kitabı adıdır, istediğiniz gibi yapabilirsiniz.

Bir çalışma kitabının açık mı yoksa kapalı mı olduğunu kontrol edin Kutools for Excel

VBA'ya aşina değilseniz, bir çalışma kitabının açık olup olmadığını kontrol edebilirsiniz. Kutools for Excel, onun ile Navigasyon bölme, bölmenin çalışma kitabı listesindeki tüm açık çalışma kitaplarını net bir şekilde görüntülemenize yardımcı olur.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 
Bedava indir
30 günde ücretsiz tam özellikli

Sonra ücretsiz kurulum Kutools for Excellütfen aşağıdaki gibi yapın:

1. tık Kutools > Navigasyon Gezinti bölmesini etkinleştirmek için. Ekran görüntüsüne bakın:
doc bir dosyanın açık olup olmadığını kontrol edin 3

2. Sonra tıklayın Çalışma Kitabı ve Sayfa gitmek için bölmeyi genişletme düğmesi Çalışma Kitabı ve Sayfa Bölüm. Ve tüm açık çalışma kitaplarını üst listede görüntüleyebilirsiniz. Ekran görüntüsüne bakın:
doc bir dosyanın açık olup olmadığını kontrol edin 4

İle Navigasyon bölmesi, listedeki çalışma kitapları veya sayfalar arasında hızlıca geçiş yapabilirsiniz.

Navigasyon hakkında daha fazla bilgi için burayı tıklayın.

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Excel Becerilerinizi Güçlendirin Kutools for Excelve Verimliliği Daha Önce Hiç Olmadığı Şekilde Deneyimleyin. Kutools for Excel Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905

Office Tab Sekmeli arabirimi Office'e getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (5)
No ratings yet. Be the first to rate!
matheus
matheus
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
Reply
0
0
Joe
Joe
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.
Reply
0
0
Sunny
Sunny     Joe
This comment was minimized by the moderator on the site
Thanks for your reminder.
Reply
Report
0
0
Dawid
Dawid
This comment was minimized by the moderator on the site
Wow, super VBA, simple and works. Thank you very much :)
Reply
0
0
Eddie
Eddie
This comment was minimized by the moderator on the site
Excellent VBA, works great. Thanks.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations