未经授权的用户访问隐藏的工作表

Question

曾经被授权的用户现在是未经授权的（我从VBA代码中删除了该用户的名称），但是以某种方式，该用户仍可以访问修改后版本中的隐藏工作表。

为了测试代码，我将自己和我的同事删除为授权用户。删除后，我们将无法访问隐藏的工作表。因此，代码似乎可以正常工作。这是示例：

Option Compare Text
Private Sub Workbook_Open()


Sheet5.Visible = xlSheetVeryHidden
Sheet9.Visible = xlSheetVeryHidden


Dim user As String
Dim users(41) As String

users(0) = "MCCARTHYJ"
users(1) = "krishnam

'，依此类推……直到命名41位用户

user = Environ$("Username")

Dim access As Boolean
Dim i As Integer

access = False

For i = 0 To 40
    If users(i) = user Then
    Sheet9.Visible = xlSheetVisible
    Sheet5.Visible = xlSheetVisible
    Sheets("PLM Approval").Select
    Range("B4").Select
  Exit For

End If

End Sub

如果用户不再是命名用户，我将无法理解该用户如何访问隐藏的工作表。任何想法或建议，将不胜感激！