добрый день. состряпал небольшой макрос на проверку пользователя при открытии файла. Прошу помощи доработать его, т.к. сам не "бум-бум". В код требуется добавить проверку пользователя не с одним значением, а со списком значений. Этот список записать в самом коде. Например, список пользователей: chebykinvv, chebykinvv2, chebykinvv3.
Код |
---|
Private Sub Workbook_Open()
username1 = Environ("USERNAME")
If username1 = "chebykinvv" Then
For Each sh In ActiveWorkbook.Worksheets
sh.Visible = True
Else
ThisWorkbook.Close
End If
End Sub |