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

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 ditutup dengan 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 ditutup dengan Kutools for Excel

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

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
VBA luar biasa, berfungsi dengan baik. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Wow, VBA super, sederhana dan berfungsi. Terima kasih banyak :)
Komentar ini diminimalkan oleh moderator di situs
Hanya ingin memastikan semua orang sadar, fungsi "IsWorkBookOpen" hanya akan dapat mengetahui apakah buku kerja terbuka dalam contoh Excel saat ini. Jika Anda memiliki beberapa instans terbuka, Anda harus menjalankannya pada setiap instans untuk memastikan buku kerja (tidak) terbuka, menggunakan kode ini saja.
Komentar ini diminimalkan oleh moderator di situs
Terimakasih telah diingatkan.
Komentar ini diminimalkan oleh moderator di situs
Saya menambahkan ini ke kode saya tetapi saya mengalami beberapa masalah ...

Saya menggunakan fungsi Anda untuk memeriksa apakah buku kerja dengan saya mengambil beberapa informasi dari sudah terbuka atau tidak, jika terbuka, kotak pesan makro pengguna, menyuruhnya untuk menutup buku kerja dan memulai kembali makro, sampai di sini, semuanya baik-baik saja, masalahnya adalah, setelah menutup buku kerja dan memulai kembali makro, itu terus mengatakan buku kerja terbuka sementara tidak, ada tips?


Kode:


Sub Cek_BKG()

Set wa = Tidak ada

Konfirmasi = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
Jika Confirmação = vbNo Kemudian Keluar Sub

'------------------------------------------------- -------------------------------------------------------'
'///////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------------------'
Redupkan xRet Sebagai Boolean
xRet = IsWorkBookOpen("EXSH0101.xlsx")
Jika xRet Maka
MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
'MsgBox "File EXSH0101 sudah terbuka, harap tutup sebelum memulai ulang makro.", vbInformation, "EXSH0101 ERROR"
Keluar dari Sub
End If
'------------------------------------------------- -------------------------------------------------------'
'//////////////////////////////////////////\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'------------------------------------------------- -------------------------------------------------------'

Dengan Aplikasi
.EnableEvents = Salah
.ScreenUpdating = Salah
Berakhir dengan

Hubungi Abir_Arquivos

Hubungi Setando_EXSH

Hubungi Inserir_Formulas

Dengan Aplikasi
.EnableEvents = Benar
.ScreenUpdating = Benar
Berakhir dengan

wb.Sheets("Inserir").Aktifkan

End Sub
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan