ẩn sheet (VeryHide) theo ý muốn - nhờ giúp gỡ lỗi 400 ! (1 người xem)

[laohac4i]

Gởi các anh chị diễn đàn,
Mình có tạo 1 đoạn mã VBA để ẩn sheet dạng VeryHide theo ý muốn (sẽ làm Add-In gắn vào Quick Access Toolbars ribbon), nhưng vẫn còn bị lỗi 400 như sau:
File mình đang có 3 sheet hiện, khi mình ẩn từng sheet hoặc chọn cùng lúc nhiều sheet (trừ sheet duy nhứt cuối cùng và không chọn hết các sheet) thì được.
Tuy nhiên, khi mình ẩn 1 sheet, còn 2 sheet, sau đó mình chọn hết 2 sheet để ẩn, thì nó không hiện cảnh báo như mình đã bẫy lỗi khi chọn hết các sheet (ví dụ ngay từ đầu chọn hết 3 sheet để ẩn thì nó cảnh báo đúng như ý mình).

Mình đoán là lỗi vòng lặp, nhưng chỉnh hoài vẫn chưa được.

Tóm lại mình muốn hiện bẫy lỗi: không được chọn ẩn hết các sheet cùng lúc hoặc không được ẩn sheet duy nhứt cuối cùng.

Mong nhận được sự trợ giúp, cảm ơn cả nhà nhiều.

 

[ptm0412]

Sửa

If ActiveWindow.SelectedSheets.Count = ActiveWorkbook.Sheets.Count Then

thành

If ActiveWindow.SelectedSheets.Count = VisibleCount Then