将更多工作表与管理工作表一起隐藏

Question

我已经进行了用户登录&注销
如果管理员登录，则会显示管理员工作表
如果非管理员登录，则不会显示管理员工作表。

我想在管理工作表的同时隐藏更多的工作表。

非管理员登录时隐藏管理员工作表的代码：

Private Sub okbtn_Click()
Dim Wksht As Worksheet
If Sheet11.Range("B6").Value = True Then
Sheet11.Range("B7").Value = Sheet11.Range("B4").Value 'Set Current User
Loginfrm.Hide
For Each Wksht In ThisWorkbook.Worksheets
If Wksht.Name = "Admin" Then
If Sheet11.Range("B8") = "Yes" Then 'Admin
Wksht.Visible = xlSheetVisible

Else:
Wksht.Visible = xlSheetVeryHidden
End If
Else: 'Not Admin
Wksht.Visible = xlSheetVisible
End If
Next Wksht
Sheet11.Range("B4,B5").ClearContents
Else:
MsgBox "Please enter correct Username & Password"
End If
End Sub

Answer 1

您可以尝试使用Select Case而不是If Wksht.Name = "Admin"。类似这样的东西：

Select Case Wksht.Name
Case "Admin", "sheet_a", "sheet_b"
' do some stuff if it's one of the above sheets
' ***
' ***
Case Else
' do other stuff if it's not one of them
' ***
' ***
End Select

你也可以添加附加案例。