Hướng dẫn hiện tất cả các sheet ẩn trong Excel bằng VBA ~ Excel Thỉnh Vũ

Trong file excel có nhiều sheet ẩn, bằng phương pháp thủ công thì người dùng sẽ phải Unhide từng sheet ẩn đó, như vậy sẽ mất nhiều thời gian.

Bài viết dưới đây sẽ chia sẻ code VBA để unhide tất cả các sheet ẩn.

Bước 1: Mở File Excel cần bỏ ẩn các sheet và nhấn Alt+F11 (hoặc Alt+Fn+F11) để vào cửa sổ VBA => Trong cửa sổ VBA chọn Insert => Module

Bước 2: Copy đoạn code dưới dây vào cửa sổ Module

Sub UnHidenSheet()

Dim sh As Worksheet, Msh As Worksheet

Set Msh = ActiveSheet

For Each sh In ThisWorkbook.Sheets

If sh.Name <> Main_sheet Then sh.Visible = xlSheetVisible

Next

Msh.Select

End Sub

Bước 3: Chạy code bằng cách nhấn nút Run (màu xanh nhỏ) trên thanh công cụ của cửa sổ VBA

Liên hệ tư vấn khóa học Excel cho người đi làm hoặc đặt hàng đào tạo tại doanh nghiệp

{Đt+Zalo} - 038 696 1334

Excel Thỉnh Vũ