Application.UserName 属性 (Project)

获取或设置当前用户的本地名称。 可读/写 String 类型。

语法

表达式。用户

expression：表示 Application 对象的变量。

备注

Application 对象的 UserName 属性会显示本地用户名。 相比之下，Profile 对象的 UserName 属性会显示登录名。

用户名 属性用于自定义的项目选项或为特定用户宏。 例如，假设您编写了一个名为 PrintReport的出版社 Mine.mpp 报告，当您按 CTRL + R、 宏，但是另一个用户想要使用同一快捷键打印 Yours.mpp 报告。 您可以编辑 PrintReport宏，以便检查 用户名 属性，然后打印 Mine.mpp，如果您是当前的用户或打印 Yours.mpp，如果您不是当前用户。

注意

[!注释] 用户名 属性的本地名称，但可以更改为一个不同的值。 在 项目属性对话框中的 作者字段是默认情况下用户的登录名。

示例

下面的示例将根据当前用户的名称来设置首选项。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。