Hướng dẫn này sẽ dạy bạn cách ẩn và hiện Trang tính bằng VBA.
Ẩn trang tính trong VBA
Để ẩn một Trang tính trong VBA, hãy sử dụng thuộc tính Trang tính hiển thị.
Đặt thuộc tính Hiển thị thành FALSE:
| 1 | Worksheets ("Sheet1"). Hiển thị = Sai |
hoặc đặt thuộc tính Visible thành xlSheetHidden:
| 1 | Worksheets ("Sheet1"). Hiển thị = xlSheetHidden |
Điều này giống như khi người dùng nhấp chuột phải vào tab trang tính và chọn "ẩn".
Bỏ ẩn trang tính
Để hiện một Trang tính trong VBA, hãy sử dụng thuộc tính Trang tính hiển thị:
| 1 | Worksheets ("Sheet1"). Visible = True |
hoặc
| 1 | Worksheets ("Sheet1"). Visible = xlSheetVible |
Có thể nhìn thấy Trang tính ẩn bằng cách nhấp chuột phải vào khu vực tab Trang tính:
Trang tính rất ẩn
Thuộc tính Trang tính có thể nhìn thấy có tùy chọn thứ ba: xlSheetVeryHidden:
| 1 | Worksheets ("Sheet1"). Visible = xlSheetVeryHidden |
Các Trang tính rất ẩn sẽ bị ẩn khi nhấp chuột phải vào khu vực tab Trang tính:
Mã này sẽ ngăn người dùng bảng tính nhìn thấy tab Trang tính ở cuối màn hình. Nó cũng ẩn Trang tính khỏi người dùng khi họ nhấp chuột phải vào các tab ở dưới cùng. Cách duy nhất để biết rằng Trang tính tồn tại (hoặc hiện Trang tính) là bằng cách mở Trình soạn thảo Visual Basic.
Hiện các trang tính rất ẩn
Các Bảng tính rất ẩn được hiển thị giống như các Bảng tính ẩn thông thường:
| 1 | Worksheets ("Sheet1"). Visible = True |
hoặc
| 1 | Worksheets ("Sheet1"). Visible = xlSheetVible |
Ẩn / Hiện Trang tính trong VBA Editor
Bạn cũng có thể chuyển đổi thuộc tính Worksheet Visible trong VBA Editor:
Ẩn tất cả các tab trang tính
Bạn cũng có thể muốn ẩn toàn bộ khu vực Tab Trang tính để ngăn người dùng điều hướng đến các trang tính khác nhau. Tìm hiểu thêm về ẩn các tab trang tính.
Ẩn / Bỏ ẩn Trang tính trong Sổ làm việc được Bảo vệ
Sổ làm việc của bạn phải được không được bảo vệ trước khi bạn có thể ẩn hoặc hiện trang tính. Để bỏ bảo vệ cấu trúc sổ làm việc của bạn, hãy sử dụng mã sau:
| 1 | ActiveWorkbook.Unprotect |
Nếu cấu trúc sổ làm việc của bạn được bảo vệ bằng mật khẩu, bạn phải thực hiện việc này thay thế:
| 1 | ThisWorkbook.Unprotect "mật khẩu" |
Hiện tất cả các trang tính
Quy trình này sẽ hiện tất cả các trang tính trong sổ làm việc, sử dụng Vòng lặp Cho Mỗi:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws As WorksheetActiveWorkbook.UnprotectĐối với mỗi ws trong Worksheetsws.Vible = xlSheetVosystemKế tiếpKết thúc Sub |
Lưu ý rằng trước tiên chúng tôi bỏ bảo vệ sổ làm việc, đề phòng nó được bảo vệ bằng mật khẩu.
