Gewusst wie: Anzeigen der Anmeldekennung des aktuellen Benutzers in einer Zelle

  • Artikel

Aktualisiert: November 2007

Betrifft

Die Informationen in diesem Thema gelten nur für die angegebenen Visual Studio Tools for Office-Projekte und Versionen von Microsoft Office.

Projekttyp

  • Projekte auf Dokumentebene

  • Projekte auf Anwendungsebene

Microsoft Office-Version

  • Excel 2003

  • Excel 2007

Weitere Informationen finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

Sie können die Anmeldekennung des aktuellen Benutzers lesen, indem Sie mit der GetCurrent-Methode des WindowsIdentity-Objekts den aktuellen Benutzer darstellen. Dann können Sie die Anmeldekennung des Benutzers auf einem Microsoft Office Excel-Arbeitsblatt in einem benannten Bereich anzeigen.

Um Text in einer Zelle anzuzeigen, verwenden Sie ein NamedRange-Steuerelement oder ein systemeigenes Excel-Bereichsobjekt.

Verwenden eines NamedRange-Steuerelements

Dieses Beispiel bezieht sich auf Anpassungen auf Dokumentebene. Der folgende Code muss in eine Arbeitsblattklasse und nicht in die ThisWorkbook-Klasse eingefügt werden.

So zeigen Sie die Anmeldekennung des aktuellen Benutzers in einem benannten Bereich an

  1. Rufen Sie die Anmeldekennung des Benutzers ab.

    Dim user As System.Security.Principal.WindowsIdentity
user = System.Security.Principal.WindowsIdentity.GetCurrent()

    System.Security.Principal.WindowsIdentity user;
user = System.Security.Principal.WindowsIdentity.GetCurrent();

  2. Erstellen Sie ein NamedRange-Steuerelement mit dem Namen userID, und zeigen Sie die Anmeldekennung des Benutzers an.

    Dim userID As Microsoft.Office.Tools.Excel.NamedRange
userID = Me.Controls.AddNamedRange(Me.Range("A1"), "userID")

userID.Value2 = user.Name

    Microsoft.Office.Tools.Excel.NamedRange userID;
userID = this.Controls.AddNamedRange(this.Range["A1", missing], "userID");

userID.Value2 = user.Name;

Verwenden eines systemeigenen Excel-Bereichs

So zeigen Sie die Anmeldekennung des aktuellen Benutzers in einem systemeigenen Excel-Bereich an

  1. Rufen Sie die Anmeldekennung des Benutzers ab.

    Dim user As System.Security.Principal.WindowsIdentity
user = System.Security.Principal.WindowsIdentity.GetCurrent()

    System.Security.Principal.WindowsIdentity user;
user = System.Security.Principal.WindowsIdentity.GetCurrent();

  2. Erstellen Sie ein Range mit dem Namen userID, und zeigen Sie die Anmeldekennung des Benutzers an.

    Dim userID As Excel.Range = Me.Application.Range("A1")

userID.Value2 = user.Name

    Excel.Range userID = this.Application.get_Range("A1", missing);

userID.Value2 = user.Name;

Robuste Programmierung

Die folgenden Bedingungen können einen Ausnahmefehler verursachen:

Siehe auch

Aufgaben

Gewusst wie: Verweisen auf Arbeitsblattbereiche im Code

Gewusst wie: Erstellen eines WindowsPrincipal-Objekts

Konzepte

Arbeiten mit Zellen

Optionale Parametern in Office-Projektmappen