Ẩn sheet không chạy được macro

[nokiano258vn]

Sau khi mở các sheet ẩn của 1 file kế toán trên diễn đàn bằng ASAP Utilites, tôi lại làm ẩn lại thi khi chạy nó báo như sau (file ảnh). Xin chỉ các khắc phục

 

[tedaynui]

Lỗi trên là do trong chương trình có câu lệnh Chon 1 sheet "gì đó" (mà bạn đã cho ẩn đi) bằng phương thức Select nên chương trình báo lỗi. Bạn có thể mở code ra và thêm

Sheets("gì đó").Visible = xlSheetVisible
Sheets("gì đó").Select

Bạn thử xem sao.
TDN

 

[flvflv]

Lỗi trên là do trong chương trình có câu lệnh Chon 1 sheet "gì đó" (mà bạn đã cho ẩn đi) bằng phương thức Select nên chương trình báo lỗi. Bạn có thể mở code ra và thêm

Sheets("gì đó").Visible = xlSheetVisible
Sheets("gì đó").Select

Bạn thử xem sao.
TDN

Cảm ơn bạn rất nhiều. Chỉ một dòng code mà giải quyết được vấn đề mình thắc mắc