Bỏ qua nội dung chính

Làm cách nào để nhanh chóng kiểm tra xem một tệp (sổ làm việc) đang mở hay đóng trong Excel?

Excel làm việc hàng ngày, bạn mở nhiều sổ làm việc cùng một lúc để làm việc, nhưng đôi khi, hàng trăm sổ làm việc có thể khiến bạn khó nhớ nếu một sổ làm việc cụ thể đang mở hay đóng. Từ bỏ phương pháp truyền thống là kiểm tra từng tệp một, ở đây tôi giới thiệu với bạn các thủ thuật để nhanh chóng tìm thấy một sổ làm việc đang mở hoặc đang đóng.

Kiểm tra xem sổ làm việc đang mở hay đóng bằng VBA

Kiểm tra xem sổ làm việc đang mở hay đóng bằng Kutools cho Excel ý kiến ​​hay3

Kiểm tra xem sổ làm việc đang mở hay đóng bằng VBA

Đây là mã VBA bạn có thể chạy để kiểm tra xem một sổ làm việc cụ thể đang mở hay đóng.

1. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đun và sau đó sao chép và dán VBA vào Mô-đun cửa sổ.

VBA: Kiểm tra xem sổ làm việc mở hay đóng

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. Và nhấn F5 để chạy vba này và một hộp thoại bật ra để nhắc bạn rằng sổ làm việc cụ thể có đang mở hay không.
doc kiểm tra xem tệp có mở 1 không     doc kiểm tra xem tệp có mở 2 không

Mẹo: Trong VBA ở trên, “kết hợp”Là tên sổ làm việc bạn muốn kiểm tra, bạn có thể kiểm tra nếu cần.

Kiểm tra xem sổ làm việc đang mở hay đóng bằng Kutools cho Excel

Nếu bạn không quen thuộc với VBA, bạn có thể kiểm tra xem sổ làm việc có được mở bằng Kutools cho Excel, với của nó THÔNG TIN , điều này sẽ giúp bạn có thể xem rõ ràng tất cả các sổ làm việc đang mở trong danh sách sổ làm việc của ngăn.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 
Tải xuống miễn phí
miễn phí đầy đủ tính năng trong 30 ngày

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools > THÔNG TIN để bật ngăn Điều hướng. Xem ảnh chụp màn hình:
doc kiểm tra xem tệp có mở 3 không

2. Sau đó nhấn vào Workbook & Sheet để mở rộng ngăn để chuyển đến Workbook & Sheet phần. Và bạn có thể xem tất cả các sổ làm việc đang mở trong danh sách phía trên. Xem ảnh chụp màn hình:
doc kiểm tra xem tệp có mở 4 không

Với THÔNG TIN , bạn cũng có thể nhanh chóng chuyển đổi giữa các sổ làm việc hoặc trang tính trong danh sách.

Nhấp vào đây để biết thêm về Điều hướng.

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (6)
No ratings yet. Be the first to rate!
Saliou NDIAYE
Saliou NDIAYE
This comment was minimized by the moderator on the site
It doesn't work when the file has macros
Reply
0
0
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