Свойство Application.UserName (Project)

Возвращает или задает локальное имя текущего пользователя. Для чтения и записи, String.

Синтаксис

expression. Пользователя

выражение: переменная, представляющая объект Application.

Примечания

В свойстве UserName объекта Application отображается имя локального пользователя. Для сравнения в свойстве UserName объекта Profile отображается имя входа.

Используйте свойство UserName для настройки параметров проекта или макросов для конкретного пользователя. Например, предположим, что вы написали макрос с именем PrintReport , который печатает отчет Mine.mpp при нажатии клавиш CTRL+R, но другой пользователь хочет использовать те же сочетания клавиш для печати отчета Yours.mpp. Макрос PrintReport можно изменить так, чтобы он проверял свойство UserName, а затем выводит Mine.mpp, если вы являетесь текущим пользователем, или yours.mpp, если вы не являетесь текущим пользователем.

Примечание.

Свойство UserName является локальным именем, но его можно изменить на другое значение. Поле "Автор" в диалоговом окне "Свойства проекта" по умолчанию представляет собой имя пользователя для входа.

Пример

В следующем примере задаются параметры в соответствии с именем текущего пользователя.

Sub GetUserName() 
 
    ' Get the user name. 
    UserName = InputBox$("What's your name?", , UserName) 
 
    ' If user is Jeff Smith, then set certain preferences. 
    If UserName = "Jeff Smith" Then 
        DisplayScheduleMessages = False 
        BarRounding On:=False 
        Calculation = True 
    ' Otherwise, set default preferences. 
    Else 
        DisplayScheduleMessages = True 
        BarRounding On:=True 
        Calculation = False 
    End If
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.