Sorry vậy mình giới thiệu sơ sơ về code cho bạn hiểu. Bạn nhấn Alt+F11 thì sẽ hiện lện cửa sổ VBA, bên cửa sổ VBA Project bạn đúp vào Thisworkbook trong đây sẽ có code, nó hoạt động khi bạn mở file lên thì tất cả các sheets trong file đó điều bị ẩn hết. Trong Module 1 có code Unhidesh thì dùng để bạn muốn ẩn hoặc không ẩn hết các sheet khi bạn cần
Nếu muốn thiết kế nút để ẩn hoặc hiện đó thì bạn phải biết tên hình mà bạn vẽ là tên gì, nhãn của hình bạn vẽ là gì (Có rất nhiều cách để làm cho nó hiện toàn bộ sheet hoặc ẩn toàn bộ sheet). Trong file đó tên hình của mình là "RCHIDE" để biết tên hình đó bạn nhấn vào hình đó rồ nhìn trên ô name kế bên thanh formular chỗ bạn nhập công thức vào đó
Có Nhãn của hình mình thiết kế là UnHideSheets nhìn vào thấy liền đó
Để gán cho hình đó có hiệu lực tức là nhấn vào đó thì nó hiện or ẩn toàn bộ sheets thì bạn phải viết cho nó lệnh
Trong file này lệnh của nó mình viết trong Module1 có tên là unhidesh, và cách gán cho hình đó thì bạn chọn khung đó rồi nhấn chuột phải chọn Assign Macro trong danh sách Macro Name bạn chọn tên macro (thủ tục Sub đó) muốn gán rồi click ok
Hiện giờ trong file này thì để nút lệnh đó trên ô Q1 nếu bạn muốn giấu thì để chỗ khác hoặc format cho nó ẩn luôn cũng được. Mà file bạn có pass nên mình làm tới đó thôi
