kuklp, спасибо, помогли. начал читать по select case, думаю Вы правы, что этот способ более уместен.
Юрий М, спасибо, очень полезная статья. Но в том примере, на который я ссылался там идентификация пользователя происходит от имени учетной записи ПК. В данный момент мне это более интереснее.
Причесал макрос пока так. Вроде работает.
Код |
---|
Private Sub Workbook_Open()
If Environ("USERNAME") <> "Nikolay" And Environ("USERNAME") <> "Ivan" Then 'если пользователя не зовут Nikolay или Ivan
Worksheets("Лист1").Visible = True 'отображается лист1
Worksheets("Лист2").Visible = xlVeryHidden 'скрывается лист2
Worksheets("Лист3").Visible = xlVeryHidden 'скрывается лист3
Else
If Environ("USERNAME") = "Nikolay" Then 'если пользователь все-таки Nikolay,то
Worksheets("Лист1").Visible = True 'отображается лист1
Worksheets("Лист2").Visible = True 'отображается лист2
Worksheets("Лист3").Visible = True 'отображается лист3
Else
If Environ("USERNAME") = "Ivan" Then 'а если пользователь все-таки Ivan,то
Worksheets("Лист1").Visible = xlVeryHidden 'скрывается лист1
Worksheets("Лист2").Visible = True 'отображается лист2
Worksheets("Лист3").Visible = True 'отображается лист3
End If
End If
End If
End Sub
|