隐藏更多的工作表和管理表

Question

我做了一个用户登录和注销。

如果Admin登录，它将显示管理表。

如果非管理员登录，管理表就不会出现。

我想把更多的床单和管理单一起藏起来。

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

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

您也可以添加附加案例。