Trong bài viết này, bạn sẽ học cách ẩn nhiều trang tính bằng mã VBA.

Hãy cho chúng tôi hiểu với một ví dụ:

H) Tôi có khoảng 100 trang tính trong sổ làm việc Excel của mình. Chỉ sheet1 nên được hiển thị cho người dùng và phần còn lại sẽ được ẩn. Tôi không muốn người dùng hiện các trang tính bằng cách nhấp chuột phải và hiện chúng.

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

img1

Nhấp vào Chèn, sau đó nhấp vào Mô-đun

img2

Điều này sẽ tạo mô-đun mới.

Nhập mã sau vào Mô-đun

Sub HideSheets ()

Dim sh As Worksheet

For Eachsh In ThisWorkbook.Worksheets

Nếu sh.Name <> “Sheet1” Thì

sh.Vible = xlSheetVeryHidden

Kết thúc Nếu

Tiếp theo

End Sub

img3

Đoạn mã trên sẽ kiểm tra tên của từng trang tính và nếu tên được tìm thấy khác với “Sheet1” thì nó sẽ chạy và ẩn trang tính.

Sau khi thực hiện macro; chúng ta sẽ hiển thị Sheet1 cho chúng ta và phần còn lại sẽ bị ẩn.

Để có thể xem sheet1 & sheet2 chỉ trong số 100 tờ, bạn cần mã sau

Sub HideSheets2 ()

Dim sh As Worksheet

For Eachsh In ThisWorkbook.Worksheets

Nếu sh.Name <> “Sheet1” Thì

sh.Vible = xlSheetVeryHidden

Kết thúc Nếu

Khác

Nếu sh.Name <> “Sheet2” Thì

sh.Vible = xlSheetVeryHidden

Kết thúc Nếu

Tiếp theo

End Sub

Macro HideSheet2 sẽ không ẩn “Sheet1” & “Sheet2” và đảm bảo tất cả các trang tính khác sẽ bị ẩn.

Bằng cách này, chúng tôi có thể ẩn các trang tính mà chúng tôi không muốn người dùng xem.