Xử lý File có nhiều ThisWorkbook trở lại nguyên trạng

[lameco411]

Sáng ra mở file không lên: Nó báo là Can't find project or library. Em chọn ok là nó tự tắt cả cái excel. Em mở cả chục lần vẫn thế. Sau khi cài lại excel thì nó bị mất Table, em vào trong VBA thì nó hiện lên quá trời sheet màu xanh như hình. Mong các bác giúp đỡ em đang cần dùng file gấp.

 

[be_09]

Sáng ra mở file không lên: Nó báo là Can't find project or library. Em chọn ok là nó tự tắt cả cái excel. Em mở cả chục lần vẫn thế. Sau khi cài lại excel thì nó bị mất Table, em vào trong VBA thì nó hiện lên quá trời sheet màu xanh như hình. Mong các bác giúp đỡ em đang cần dùng file gấp.
View attachment 203881

Góp ý cho bạn:
Nên sửa lại tiêu đề lại như thế này cho rõ ràng hơn: "Xử lý File có nhiều ThisWorkbook trở lại nguyên trạng".

Bạn có thể thực hiện theo trình tự các bước như sau:
1/ Vào VBE click phải vào từng Module chọn Export File và xuất mỗi Module thành 1 File (.bas), File của bạn có 3 Module thì xuất thành 3 File.
2/ Lưu File SSX .xlsm dưới dạng (.xlsx) và đóng File này lại.
3/ Mở File SSX (.xlsx) vào VBE và click ThisWorkbook chọn Import File và chọn từng File (.bas) vừa xuất như nêu ở trên. Lưu File dưới dạng .xlsm, sau đó mở File và kiểm tra xem kết quả.

 

[lameco411]

Góp ý cho bạn:
Nên sửa lại tiêu đề lại như thế này cho rõ ràng hơn: "Xử lý File có nhiều ThisWorkbook trở lại nguyên trạng".

Bạn có thể thực hiện theo trình tự các bước như sau:
1/ Vào VBE click phải vào từng Module chọn Export File và xuất mỗi Module thành 1 File (.bas), File của bạn có 3 Module thì xuất thành 3 File.
2/ Lưu File SSX .xlsm dưới dạng (.xlsx) và đóng File này lại.
3/ Mở File SSX (.xlsx) vào VBE và click ThisWorkbook chọn Import File và chọn từng File (.bas) vừa xuất như nêu ở trên. Lưu File dưới dạng .xlsm, sau đó mở File và kiểm tra xem kết quả.

Cám ơn bác nhiều, em chưa kịp thử cách của bác tại vì em tải cái gói này của microsoft về cài đặt cái là hết luôn rồi!
https://www.microsoft.com/en-us/download/confirmation.aspx?id=52013