Loncat ke daftar isi utama

Bagaimana cara cepat memeriksa apakah file (buku kerja) terbuka atau tertutup di Excel?

Pekerjaan harian Excel, Anda membuka beberapa buku kerja pada saat yang sama untuk bekerja, tetapi terkadang, ratusan buku kerja mungkin membingungkan kepala Anda untuk mengingat apakah buku kerja tertentu terbuka atau tertutup. Hentikan metode tradisional dalam memeriksa file satu per satu, di sini saya perkenalkan trik cepat menemukan buku kerja terbuka atau tertutup.

Periksa apakah buku kerja terbuka atau ditutup dengan VBA

Periksa apakah buku kerja terbuka atau tertutup Kutools for Excel ide bagus3

Periksa apakah buku kerja terbuka atau ditutup dengan VBA

Berikut adalah kode VBA yang bisa Anda jalankan untuk memeriksa apakah buku kerja tertentu terbuka atau tertutup.

1. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul lalu salin dan tempel VBA ke file Modul jendela.

VBA: Periksa apakah buku kerja terbuka atau tertutup

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. Dan tekan F5 kunci untuk menjalankan vba ini, dan sebuah dialog muncul untuk mengingatkan Anda bahwa buku kerja tertentu terbuka atau tidak.
doc memeriksa apakah file terbuka 1     doc memeriksa apakah file terbuka 2

olymp trade indonesiaTip: Dalam VBA di atas, "menggabungkan”Adalah nama buku kerja yang ingin Anda periksa, Anda dapat menggunakannya sesuai kebutuhan.

Periksa apakah buku kerja terbuka atau tertutup Kutools for Excel

Jika Anda tidak terbiasa dengan VBA, Anda bisa memeriksa apakah buku kerja dibuka oleh Kutools for Excel, dengan miliknya Navigasi panel, yang akan membantu Anda bisa dengan jelas menampilkan semua buku kerja yang terbuka di daftar buku kerja panel.

Kutools for Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 
Free download
fitur lengkap gratis di 30 hari-hari

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools > Navigasi untuk mengaktifkan panel Navigasi. Lihat tangkapan layar:
doc memeriksa apakah file terbuka 3

2. Lalu klik Buku Kerja & Lembar untuk memperluas panel yang akan dituju Buku Kerja & Lembar bagian. Dan Anda bisa melihat semua buku kerja yang terbuka di daftar atas. Lihat tangkapan layar:
doc memeriksa apakah file terbuka 4

Dengan Navigasi panel, Anda juga bisa dengan cepat beralih di antara buku kerja atau lembar dalam daftar.

Klik di sini untuk mengetahui lebih banyak tentang Navigasi.

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
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