VBA hiển thị cho các Sheet đã được ẩn

[Chương Chăm Chận]

Kính nhờ các bậc tiền bối giúp mình viết lại VBA - mình lập câu lệnh sau, nhưng không hiện trở lại các Sheet khi cần:
If Sh.Name <> "BangLuong" Then Sh.Visible = xlSheetVeryUnhide
Giúp làm sao cho hiện lại sheet đã được ẩn để tiếp tục nhập liệu mới vào các sheet đó
(Xin xem file đính kèm)
(Vì load file không chấp nhận file *.xlsm nên phải RAR lại mới up lên được - Mong thông cảm)
XIN CÁM ƠN

 

[Tranhieu042]

Chuyển sang chế độ Sh.Visible = -1-xlsheetVisible là OK

 

[Chương Chăm Chận]

Thanks you

Chuyển sang chế độ Sh.Visible = -1-xlsheetVisible là OK