我已经进行了用户登录和注销，如果“管理员登录”中显示了管理表，如果未显示非管理员登录中的管理表，则不会显示。这是完美的选择，但是我想隐藏更多的工作表以及管理工作表，我们该怎么做？有人可以帮忙吗？谢谢你进入
这是我在有人登录时隐藏管理表的代码：
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
您可以尝试使用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
您也可以添加其他案例。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句