Xin giúp em code VBA ẩn sheet theo ý muốn

[truongtu_1988]

Xin giúp em code VBA ẩn sheet theo ý muốn, em cám ơn Thầy Cô,Anh Chị nhiều!
Ví dụ trong file e có 5 sheet (từ 1 đến 5), sheet 1 là sheet chính nên không ẩn, khi chọn các button đến sheet đó thì hiện ra và quay về Sheet 1 thì ẩn sheet đó ( chổ này em làm được rồi), nhưng nếu
không bấm vào nút button mà di chuyển chuột qua sheet 1 thì nó vẫn hiện , hoặc để vậy mà Save đi thì nó còn đó-> đó là mong muốn của em ( với khi tắt mở file thì chỉ hiện sheet 1 thôi)
Em xin cám ơn !!!!

 

[Maika8008]

Bạn ghi macro thao tác ẩn, hiện sheet rồi gán vào nút là được thôi mà. Việc ẩn 1 hay nhiều sheet, ẩn cái nào, hiện cái nào chỉ cần suy nghĩ chút là làm được chứ có khó gì đâu!

 

[truongtu_1988]

Bạn ghi macro thao tác ẩn, hiện sheet rồi gán vào nút là được thôi mà. Việc ẩn 1 hay nhiều sheet, ẩn cái nào, hiện cái nào chỉ cần suy nghĩ chút là làm được chứ có khó gì đâu!

Dạ em có tham khảo trên diễn đàn GPE rồi mà không có như mong muốn

Cho hỏi cách ẩn Sheet trong excel??

Bạn nào biết cho mình hỏi là mình muốn ẩn 1 số sheet nhạy cảm trong excel thì phải làm như thế nào? vì sheet đó có dữ liệu link sang sheet khác, mình kô muốn mọi người biết cách xây dựng công thức của mình, vậy làm sao để vẫn link được dữ liệu mà mọi người kô nhìn thấy được sheet đó. Cám ơn các...

www.giaiphapexcel.com

Hỏi code Ẩn hiện sheet

Đoạn code ẩn hiện sheet lấy từ diễn đàn , khi áp dụng không biết sai chổ nào mà khi dùng liên kết đến sheet vẫn không hiện được sheet . Nhờ các anh hướng dẫn giúp . Rất cảm ơn . (Trước đây tôi đã áp dụng chạy được nhưng bây giờ thì không ).

www.giaiphapexcel.com

Em có làm theo hướng dẫn rồi, thì được 1 phần, nhưng không biết cách nào không bấm vào nút button trở về sheet chính,mà di chuyển chuột chọn sheet chính thì sheet đó nó vẫn hiện , hoặc để vậy mà Save đi thì nó còn đó-> đó là mong muốn của em ( với khi tắt mở file thì chỉ hiện sheet chính mình mong muốn thôi)
Anh Maika8008 giúp em với, em cám ơn nhiều!

 

[Maika8008]

1. Khi gán macro vào 1 nút để ẩn sheet thì chỉ khi bấm nút đó sheet mới ẩn! Còn di chuyển hay save thì đâu có tác động đến việc ẩn hay hiện sheet.
2. Khi mở file mà muốn chỉ hiện sheet 1 (sheet chính) thì vào trang code This Workbook chọn sự kiện Workbook.Open ẩn hết các sheet khác, trừ sheet 1.

Chú: tôi đang dùng GPE trên điện thoại!

 

[truongtu_1988]

1. Khi gán macro vào 1 nút để ẩn sheet thì chỉ khi bấm nút đó sheet mới ẩn! Còn di chuyển hay save thì đâu có tác động đến việc ẩn hay hiện sheet.
2. Khi mở file mà muốn chỉ hiện sheet 1 (sheet chính) thì vào trang code This Workbook chọn sự kiện Workbook.Open ẩn hết các sheet khác, trừ sheet 1.

Chú: tôi đang dùng GPE trên điện thoại!

Em mới làm quen với VBA, nên còn ngu lắm
Anh có thể hướng dẫn chi tiết hơn, em cám ơn nhiều!!

 

[VetMini]

nhưng nếu
không bấm vào nút button mà di chuyển chuột qua sheet 1 thì nó vẫn hiện , hoặc để vậy mà Save đi thì nó còn đó-> đó là mong muốn của em ( với khi tắt mở file thì chỉ hiện sheet 1 thôi)

Chỗ bôi đỏ: cái button ấy ở đâu? mỗi sheet có 1 cái button?

2 chỗ bôi xanh có vẻ tréo que nhau: "nó còn đó" khi Save, nhưng mở ra thì chỉ hiện sheet1 -> "nó" đi đâu?

Em mới làm quen với VBA, ...

Không phải do bạn mới làm quen với VBA. Mà do bạn chụp ngay cái vấn đề cần hiểu nhiều về cách hiển thị workbook và các sự kiện (events).
Cách diễn tả về ẩn/hiện sheet của bạn nó tùm lùm quá.

 

[truongtu_1988]

Chỗ bôi đỏ: cái button ấy ở đâu? mỗi sheet có 1 cái button?

2 chỗ bôi xanh có vẻ tréo que nhau: "nó còn đó" khi Save, nhưng mở ra thì chỉ hiện sheet1 -> "nó" đi đâu?


Không phải do bạn mới làm quen với VBA. Mà do bạn chụp ngay cái vấn đề cần hiểu nhiều về cách hiển thị workbook và các sự kiện (events).
Cách diễn tả về ẩn/hiện sheet của bạn nó tùm lùm quá.

Dạ, em làm được tới ẩn các sheet, nhưng chỉ còn thắc mắc, nếu các sheet phụ, không bấm button trở về mà ta di chuyển con chuột qua sheet Chính hay sheet khác thì nó sẽ không hide "sheet phụ" đó. Vậy mình có code nào mà nếu không acitve sheet ,qua sheet khác thì sheet đó sẽ ẩn không Anh (với khi tắt mở file lên thì mặc định chỉ hiển 2 sheet mình chọn, còn các Sheet khác thì ẩn hết), em cám ơn!!!
Anh coi file đính kèm !

 

[VetMini]

Dùng sự kiện Workbook_SheetActivate(ByVal Sh As Object)
Tạo vòng lặp duyệt qua collection worksheets.
Cứ cái nào có tên khác sheet chủ và tên Sh thì ẩn.

 

[truongtu_1988]

Dùng sự kiện Workbook_SheetActivate(ByVal Sh As Object)
Tạo vòng lặp duyệt qua collection worksheets.
Cứ cái nào có tên khác sheet chủ và tên Sh thì ẩn.

Dạ, em cám ơn Anh nhiều, Anh ngủ ngon !

 

[Maika8008]

Dạ, em làm được tới ẩn các sheet, nhưng chỉ còn thắc mắc, nếu các sheet phụ, không bấm button trở về mà ta di chuyển con chuột qua sheet Chính hay sheet khác thì nó sẽ không hide "sheet phụ" đó. Vậy mình có code nào mà nếu không acitve sheet ,qua sheet khác thì sheet đó sẽ ẩn không Anh (với khi tắt mở file lên thì mặc định chỉ hiển 2 sheet mình chọn, còn các Sheet khác thì ẩn hết), em cám ơn!!!
Anh coi file đính kèm !

Bài 1 thì khi tắt mở chỉ hiện sheet1, còn đến bài này thì lại hiện 2 sheet mình chọn (!).

Thế là thế nào?

 

[Phuocam]

Dạ, em làm được tới ẩn các sheet, nhưng chỉ còn thắc mắc, nếu các sheet phụ, không bấm button trở về mà ta di chuyển con chuột qua sheet Chính hay sheet khác thì nó sẽ không hide "sheet phụ" đó. Vậy mình có code nào mà nếu không acitve sheet ,qua sheet khác thì sheet đó sẽ ẩn không Anh (với khi tắt mở file lên thì mặc định chỉ hiển 2 sheet mình chọn, còn các Sheet khác thì ẩn hết), em cám ơn!!!
Anh coi file đính kèm !

Trong Thisworkbook, thử dán code này vào:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Main" And Sh.Name <> "Sheet_Active" Then Sh.Visible = xlSheetHidden
End Sub

.

 

[truongtu_1988]

Trong Thisworkbook, thử dán code này vào:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Main" And Sh.Name <> "Sheet_Active" Then Sh.Visible = xlSheetHidden
End Sub

.

Dạ em cám ơn, được rồi ak!!!