Cách làm ẩn hoàn toàn và hiện Sheet trong Workbook

• Để hiện Sheets ẩn hoàn toàn thì bạn cần chuyển thuộc tính Visible của Sheets đó thành xlSheetVisible là được.

Cách ẩn hoàn toàn và hiện Sheet bằng VBA Excel

• xlSheetVisible: hiện.
• xlSheetHiden: ẩn.
• xlSheetVeryHiden: ẩn hoàn toàn.

#1 Ẩn hoàn toàn Sheet hiện hành

Sub VeryHiddenActiveSheet()
ActiveSheet.Visible = xlSheetVeryHidden
End Sub

Sub VeryHiddenSelectedSheets()
Dim wks As Worksheet
On Error GoTo Err
For Each wks In ActiveWindow.SelectedSheets
wks.Visible = xlSheetVeryHidden
Next
Exit Sub
Err:
MsgBox "WorkBook phai co it nhat một WorkSheets hien hanh."
End Sub

#2 Hiện Sheet đã ẩn hoàn toàn

Sub UnhideVeryHiddenSheets()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = xlSheetVeryHidden Then wks.Visible = xlSheetVisible
Next
End Sub

Sub UnhideAllSheets()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Visible = xlSheetVisible
Next wks
End Sub

• Tạo mật khẩu bảo vệ mã lệnh VBA. Lưu ý là nếu bạn đặt mật khẩu thì User vẫn có thể chạy Macro được vì vậy bạn có thể áp dụng tiếp các bước sau.
• Tạo UserForm với một TextBox và một Nút nhấn (Command Button).

• Tạo sự kiện cho nút nhấn và thêm 1 hàm điều kiện IF kiểm tra 1 mật khẩu mà bạn tự đặt.

Private Sub btnKiemtra_Click()
If txtMatkhau.Text = "mk0001" Then
bool = True
Else
bool = False
End If
Unload Me
End Sub

• Tại Moldule mà bạn đã tạo ở trên, hãy thêm vào một biến dữ liệu toàn cục. Biến này sẽ có giá trị True/ False.

Public bool As Boolean

• Sau đó bạn hãy gọi UserForm từ các hàm hiện Sheets ẩn trong Module. Và kiếm tra biến bool là True (mật khẩu đúng) > hiện Sheets hoặc False (mật khẩu sai) thì không hiện.

Sub UnhideAllSheets()
UserForm1.Show
If bool = True Then
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Visible = xlSheetVisible
Next wks
Else
MsgBox "Sai Mat Khau"
End If
End Sub

• Mỗi khi chạy Macro thì UserForm sẽ hiện lên và nếu nhập đúng mật khẩu thì hàm hiện Sheets ẩn mới thực thi. Nếu sai, sẽ báo ra MsgBox.