Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Проверка пользователя с определенным списком значений
 
#1
27.11.2020 10:17:38
добрый день. состряпал небольшой макрос на проверку пользователя при открытии файла. Прошу помощи доработать его, т.к. сам не "бум-бум". В код требуется добавить проверку пользователя не с одним значением, а со списком значений. Этот список записать в самом коде. Например, список пользователей: 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
 
 
 
#2
27.11.2020 10:39:27
Vladimir Chebykin,   загоните в массив пользователей и потом перебирать циклом
spisok = Array("Петров", "Иванов")
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
27.11.2020 10:42:32
Vladimir Chebykin, здравствуйте
В общих чертах
Изменено: Jack Famous - 27.11.2020 10:43:04
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#4
27.11.2020 10:50:37
еще вариант:
Код
username1 = Environ("USERNAME")
    If InStr(1, "|chebykinvv|petrov|Inanov|", "|" & username1 & "|", 1) > 0 Then
        For Each sh In ThisWorkbook.Worksheets
            sh.Visible = True
        Next
    Else
        ThisWorkbook.Close
    End If
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
27.11.2020 10:59:44
Всем спасибо за помощь!
 
 
 
Страницы: 1
Наверх