file xlsm đã đóng nhưng trong cửa sổ VBAProject vẫn tồn tại Project của nó?

[mrfeed87]

Xin chào các Bác
Tôi có 1 vấn đề này muốn nhờ các Bác trợ giúp
- File excel xlsm của tôi dù đóng file nhưng trong cửa sổ VBAProject vẫn tồn tại Project của file đó
- Mỗi lần mở 1 File mới lại thêm 1 Project mới của File mới mở
(Tôi mở 1 file 2 lần thì tồn tại 2 lần Project cùng 1 File)
- Tắt hết toàn bộ excel thì mới hết Project
-> Khó nhìn để chỉnh sửa hoặc sử dụng và khi tôi dùng code để tham chiếu đoạn code từ 1 File khác sẽ bị lỗi do tồn tại 2 Project cùng tên
Tôi đã tra cứu nhưng không thấy giải pháp
cũng đã cài lại excel nhưng vẫn bị
Rất cám ơn sự trợ giúp của mọi người

Bài đã được tự động gộp: 23/8/24

Vì sao file xlsm đã đóng nhưng trong cửa sổ VBAProject vẫn tồn tại Project của nó?

Gần đây tôi mới thấy trên máy xuất hiện tình trạng đã đóng file nhưng trong cửa sổ VBAProject vẫn tồn tại Project của file đó (xem hình). Chi tiết như sau: 1. Có file bị như thế, có file không. 2. Gặp tình trạng như thế thì có 1 số file dù không thay đổi gì cả nhưng khi đóng file vẫn hiện hộp...

www.giaiphapexcel.com

Tôi đã tham khảo bài viết này, nhưng không thấy kết quả

 

[befaint]

Dùng Excel bản quyền chuẩn là hết bệnh á.

 

[BuiQuangThuan]

Dùng Excel bản quyền chuẩn là hết bệnh á.

Anh ơi. Công ty cũng sài bản quyền. Mà vẫn bị. Thực ra nó không ảnh hưởng lắm nhưng nhìn nó khó chịu. Em cũng bị mấy tháng nay rồi. Nhưng kệ. Nếu có cách khắc phục thì càng tốt

 

[mrfeed87]

Để nguyên thì nó không ảnh hưởng chỉ khó nhìn thôi
Nhưng do tôi chạy code từ File excel khác nên bị lỗi do Project có 2 File trùng tên nên chạy bị lỗi

 

[ongke0711]

Tôi cũng mới bị đây. Sau đó dùng cách thủ công để xoá nó như sau: application.Workbooks.count. Sau đó duyệt qua từng wb để đóng (close).
Sau khi sửa code file xlsm bị lỗi thì hết.

 

[mrfeed87]

Tôi cũng mới bị đây. Sau đó dùng cách thủ công để xoá nó như sau: application.Workbooks.count. Sau đó duyệt qua từng wb để đóng (close).
Sau khi sửa code file xlsm bị lỗi thì hết.

Tôi đã dùng code để xoá thủ công như nó vẫn còn Bác à
Sub DongTatCaWorkbook()
Dim wb As Workbook
For Each wb In Workbooks
If wb Is ThisWorkbook Then Exit Sub
wb.Close SaveChanges:=False
Next wb
End Sub

 

[ongke0711]

Tôi đã dùng code để xoá thủ công như nó vẫn còn Bác à
Sub DongTatCaWorkbook()
Dim wb As Workbook
For Each wb In Workbooks
If wb Is ThisWorkbook Then Exit Sub
wb.Close SaveChanges:=False
Next wb
End Sub

Bạn exit sub rồi lấy gì nó đóng các wb khác.

 

[YêuCN]

Nguyên nhân có thể ứng dụng excel vẫn còn đang chạy trong memory chưa được giải phóng hoàn toàn như addin comaddin vẫn còn đang chạy ẩn hoặc virut!

 

[HeSanbi]

Nếu bạn muốn xóa được các node trong TreeView ảo đó, chỉ có thể sử dụng các hàm API để làm điều đó. Cửa sổ Project Explorer được vẽ với lớp cửa sổ SysTreeView32 trong thư viện comctl. Dựa vào đó tìm và xóa các Node.

Cái này là lỗi thông dịch của trình soạn thảo VBA, khi VBIDE đang thực thi các lệnh dọn dẹp, giải phóng cho dự án trước khi thoát thì xảy ra sự số, có các component đã thông dịch nhưng không thể giải phóng.
Các Project còn xuất hiện ở lại thực chất là các Node TreeView vô dụng. Duyệt qua các VBProjects, thì còn tồn tại project đã thoát, nhưng duyệt qua các Workbooks thì lại không. Nếu cố gắng mở các Component trong dự án, thì sẽ gặp sự cố thông dịch thực sự là sập ứng dụng, vì trình thông dịch không tìm thấy các đoạn mã trong Memory của dự án đã thoát.

Nếu muốn lập trình gọi từ dự án này qua dự án khác thì cũng chỉ API mới có thể bỗ trợ tốt cho điều này.

 

[mrfeed87]

Nếu bạn muốn xóa được các node trong TreeView ảo đó, chỉ có thể sử dụng các hàm API để làm điều đó. Cửa sổ Project Explorer được vẽ với lớp cửa sổ SysTreeView32 trong thư viện comctl. Dựa vào đó tìm và xóa các Node.

Cái này là lỗi thông dịch của trình soạn thảo VBA, khi VBIDE đang thực thi các lệnh dọn dẹp, giải phóng cho dự án trước khi thoát thì xảy ra sự số, có các component đã thông dịch nhưng không thể giải phóng.
Các Project còn xuất hiện ở lại thực chất là các Node TreeView vô dụng. Duyệt qua các VBProjects, thì còn tồn tại project đã thoát, nhưng duyệt qua các Workbooks thì lại không. Nếu cố gắng mở các Component trong dự án, thì sẽ gặp sự cố thông dịch thực sự là sập ứng dụng, vì trình thông dịch không tìm thấy các đoạn mã trong Memory của dự án đã thoát.

Nếu muốn lập trình gọi từ dự án này qua dự án khác thì cũng chỉ API mới có thể bỗ trợ tốt cho điều này.

Bác có thể hướng dẫn thêm không
Cám ơn Bác

 

[HeSanbi]

@mrfeed87 sau khi thử đoạn mã để vào TreeView, tuy nhiên bị chặn thực thi.

Vấn đề này hiện khó giải quyết, nó là chuyện thường của Microsoft, vì trình thông dịch VBA cũng chứa vài lỗi nghiêm trọng.

Có 3 lỗi mà tôi biết, 1. là gõ dấu chấm (.) trong khối With - End With, 2. Lỗi truy cập item của Collection bị xung đột trong bộ nhớ, 3 là lỗi thông dịch ProcTimer API trên VBA 64 bit. Tất cả lỗi này đều dẫn đến sập ứng dụng.

Để lập trình gọi từ dự án này qua dự án khác, bạn tham khảo dự án BackupAndRestoreXL của tôi.
Trong mã sử dụng API đăng ký đối tượng đang hoạt động cho lớp. Bạn có thể tìm thấy tại module A_APIStartProcessStandAlone

 

[ongke0711]

Tôi đã dùng code để xoá thủ công như nó vẫn còn Bác à
Sub DongTatCaWorkbook()
Dim wb As Workbook
For Each wb In Workbooks
If wb Is ThisWorkbook Then Exit Sub
wb.Close SaveChanges:=False
Next wb
End Sub

Muốn test nhanh xem có đóng được không thì bạn gõ lệnh ngay trong cửa sổ Immediate là thấy liền.


Còn muốn dùng code thì sửa code trên như bên dưới:

Sub DongTatCaWorkbook()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb Is ThisWorkbook Then GoTo skip
        wb.Close SaveChanges:=False
skip:
    Next wb
End Sub

 

[cantl]

Vào cài đặt của win 11, tìm Reset PC, làm theo hướng dẫn tiếp theo.

cài lại excel

 

[mrfeed87]

Vào cài đặt của win 11, tìm Reset PC, làm theo hướng dẫn tiếp theo.

Cách này có phải là cài lại Win thủ công không Bác

Bài đã được tự động gộp: 26/8/24

Muốn test nhanh xem có đóng được không thì bạn gõ lệnh ngay trong cửa sổ Immediate là thấy liền.
View attachment 303374

Còn muốn dùng code thì sửa code trên như bên dưới:

Sub DongTatCaWorkbook()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb Is ThisWorkbook Then GoTo skip
        wb.Close SaveChanges:=False
skip:
    Next wb
End Sub

Tôi đã thử nhưng vãn còn Bác à

Bài đã được tự động gộp: 26/8/24

@mrfeed87 sau khi thử đoạn mã để vào TreeView, tuy nhiên bị chặn thực thi.

Vấn đề này hiện khó giải quyết, nó là chuyện thường của Microsoft, vì trình thông dịch VBA cũng chứa vài lỗi nghiêm trọng.

Có 3 lỗi mà tôi biết, 1. là gõ dấu chấm (.) trong khối With - End With, 2. Lỗi truy cập item của Collection bị xung đột trong bộ nhớ, 3 là lỗi thông dịch ProcTimer API trên VBA 64 bit. Tất cả lỗi này đều dẫn đến sập ứng dụng.

Để lập trình gọi từ dự án này qua dự án khác, bạn tham khảo dự án BackupAndRestoreXL của tôi.
Trong mã sử dụng API đăng ký đối tượng đang hoạt động cho lớp. Bạn có thể tìm thấy tại module A_APIStartProcessStandAlone

Trong 3 lỗi thì tôi có sử dụng With - End With
Nếu không dùng . thì không sử dụng đúng cách
Lỗi 2 thì tôi không dùng
Lỗi 3 thì tôi không biết
Vậy không nên dùng With - End With đúng không Bác
- nhưng cũng đoạn mã code của tôi với File của tôi dùng cho máy đời Excel thấp hơn lại không bị lỗi trên
Mong Bác tư vẫn thêm

 

[cantl]

cài lại Win

Đúng vậy, vì khả năng cài đi cài lại bẻ đi bẻ lại sẽ có những file rác gây xung đột.
Mỗi năm nên cài win lại một lần để máy được trơn tru.

 

[Quang_Hải]

Đơn giản là đóng hết excel, mở lại file cần thiết thôi rồi tha hồ mần tiếp. Bớt đau đầu.

 

[mrfeed87]

Đơn giản là đóng hết excel, mở lại file cần thiết thôi rồi tha hồ mần tiếp. Bớt đau đầu.

Vâng hiện tại thì chỉ có mỗi cách đấy thôi ạ