Несанкционированный доступ к скрытому листу - PullRequest
Новая
       15

Несанкционированный доступ к скрытому листу

0 голосов
/ 16 мая 2019

Пользователь, который когда-то был авторизован, теперь не авторизован (я удалил имя пользователя из кода 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

Я не могу понять, как пользователь смог получить доступ к скрытым листам, если он больше не был именованным пользователем. Любые мысли или предложения будут с благодарностью!

...