Application.UserName property (Project)

Ruft den lokalen Namen des derzeitigen Benutzers ab, oder legt ihn fest. String-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Nutzername

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Die UserName -Eigenschaft des Application -Objekts zeigt den lokalen Benutzernamen an. Demgegenüber zeigt die UserName -Eigenschaft des Profile -Objekts den Anmeldenamen.

Verwenden Sie die UserName -Eigenschaft, um Project-Optionen oder Makros für einen bestimmten Benutzer anzupassen. Angenommen Sie, Sie haben ein Makro mit dem Namen PrintReport, die der Mine.mpp Bericht gedruckt wird, wenn Sie STRG + R drücken geschrieben, aber ein anderer Benutzer die gleichen Tastenkombinationen verwenden, um den Bericht Yours.mpp drucken möchte. Sie können das Makro PrintReport bearbeiten, damit es die Eigenschaft UserName überprüft und dann Mine.mpp druckt, wenn der aktuelle Benutzer sind oder Yours.mpp, wenn Sie sich nicht um den aktuellen Benutzer sind.

Hinweis

[!HINWEIS] Die UserName -Eigenschaft ist der lokale Name jedoch auf einen anderen Wert geändert werden kann. Das Feld Autor in das Dialogfeld " Projekteigenschaften " ist der Anmeldename des Benutzers in der Standardeinstellung.

Beispiel

Im folgenden Beispiel werden Voreinstellungen entsprechend dem Namen des derzeitigen Benutzers festgelegt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.