Propriedade Application.UserName (Project)

Obtém ou define o nome local do usuário atual. String de leitura/gravação.

Sintaxe

expressão. Username

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Propriedade UserName do objeto Application mostra o nome de usuário local. Por comparação, a propriedade UserName do objeto Profile mostra o nome de logon.

Use a propriedade UserName para personalizar opções ou macros do Project para um determinado usuário. Por exemplo, suponha que você tenha escrito uma macro chamada PrintReport que imprime o relatório Mine.mpp quando você pressiona CTRL+R, mas outro usuário deseja usar as mesmas teclas de atalho para imprimir o relatório Yours.mpp. É possível editar a macro PrintReport para que ela verifique a propriedade UserName e imprima Mine.mpp se você for o usuário atual ou imprima Yours.mpp se você não for o usuário atual.

Exemplo

O exemplo a seguir define as preferências de acordo com o nome do usuário atual.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.