Ẩn sheets với nhiều điều kiện khó (2 người xem)

[ninhtindcd]

Mình muốn ẩn Sheet theo yêu cầu của chương trình. Mình đã đọc trên diễn đàn nhưng khó quá vì chương trình của mình có nhiều sheet và mỗi sheet lại được xuất hiện theo nhiều cách khác nhau. Mong các cao thủ giúp đỡ. Chi tiết yêu cầu có trong file đính kèm. Trân trọng cảm ơn anh em trước!

 

[susu16b]

Mình muốn ẩn Sheet theo yêu cầu của chương trình. Mình đã đọc trên diễn đàn nhưng khó quá vì chương trình của mình có nhiều sheet và mỗi sheet lại được xuất hiện theo nhiều cách khác nhau. Mong các cao thủ giúp đỡ. Chi tiết yêu cầu có trong file đính kèm. Trân trọng cảm ơn anh em trước!

Bạn nên liên hệ tác giả

 

[ninhtindcd]

mình là tác giả mà. Nhưng phần này mình không biết. giúp mình với nhé

 

[susu16b]

mình là tác giả mà. Nhưng phần này mình không biết. giúp mình với nhé

Mình thấy File của bạn rất "hoành tráng", trong file đã có rất nhiều dòng lệnh để Hiện và Ẩn sheet. Chẳng hạn như Module18 đã có Sub an_moi_sheet() để ẩn toàn bộ Sheet (chỉ trừ lại Sheet "Trangchu"), nếu bạn là tác giả của File này khi khởi động bạn đã gọi được Forms "frmPass" để yêu cầu nhập Password mà bạn lại không gọi được Sub an_moi_sheet(). Kể cũng lạ.

 

[leonguyenz]

mình là tác giả mà. Nhưng phần này mình không biết. giúp mình với nhé

Bạn sửa code người khác, tham khảo bài này có thể sửa theo mong muốn của bạn: http://www.giaiphapexcel.com/forum/...-sheet-trong-chỉ-1-button&p=545117#post545117
Bạn mở file có Marco, Form Đăng nhập, vậy khi đính kèm file, vui lòng mở sẵn, đừng chạy vào Form đó.
P/s: cho những ai đã Enable Marco: User: admin; Pass: admin.

 

[ninhtindcd]

em đã recor maccro ẩn hết các sheet. nhưng lúc chạy đc lúc chạy khôngđc. nên mới nhờ GPEX chứ. Anh em nhiệt tình tí em với. thanks

 

[susu16b]

em đã recor maccro ẩn hết các sheet. nhưng lúc chạy đc lúc chạy khôngđc. nên mới nhờ GPEX chứ. Anh em nhiệt tình tí em với. thanks

Ở Workbook_Open() bạn thay hien_moi_sheet bằng an_moi_sheet. Sau khi ẩn mọi sheet.
Muốn hiện sheet nào thì: Sheets("ten_sheet").Visible = True
Muốn ẩn sheet nào thì: Sheets("ten_sheet").Visible = False