Propriedade Application.UserName (Project)

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

Sintaxe

expressão. Nome de Utilizador

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.

Utilize a propriedade Nome de Utilizador para personalizar as opções ou macros do Project para um determinado utilizador. Por exemplo, suponha que escreveu uma macro com o nome PrintReport que imprime o relatório de Mine.mpp quando prime CTRL+R, mas outro utilizador quer utilizar as mesmas teclas de atalho para imprimir a Yours.mpp relatório. É 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.

Observação

[!OBSERVAçãO] Propriedade UserName é o nome local, mas pode ser alterada para um valor diferente. Campo autor na caixa de diálogo Propriedades do projeto é o nome de logon do usuário por padrão.

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.