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

Aktualisiert: November 2007

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:

• Der Benutzer ist nicht berechtigt, auf die WindowsIdentity (SecurityException-Klasse) zuzugreifen.

• Interoperabilitätsprobleme (COMException-Klasse).

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