Angemeldeten Benutzer auslesen

Forumthread: Angemeldeten Benutzer auslesen

28.10.2002 09:35:30

Gerd

Hallo,
ich möchte den angemeldeten benutzer auslesen und diesen wie folgt verwenden.
Name auslesen
Prüfen ob dieser mit meiner vorgabe übereinstimmt
Wenn ja: öffne die arbeitsmappe
Wenn nein: schliesse oder öffne sie erst garnicht
zum thema benutzer auslesen habe ich hier einen guten beitrag gefunden komme damit aber nicht an mein ziel
vielleicht kann mir ja jemand helfen

Danke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Angemeldeten Benutzer auslesen

28.10.2002 09:38:59

Hajo_Zi
Re: Angemeldeten Benutzer auslesen

28.10.2002 10:40:13

Gerd

Re: Angemeldeten Benutzer auslesen

28.10.2002 09:38:59

Hajo_Zi

Hllo Gerd

das ist ja gut das Du einen Beitrag zum Benutzer gefunden hast. Ich habe keinen Heiligen Schein und auch keine Glaskugel. Es wäre gut gewesen hättest Du geschrieben welchen.

120. Benutzernamen zu Autorisationzwecken abfragen
x1 = Environ("COMPUTERNAME")
x2 = Environ("USERNAME")
MsgBox Environ("WINDIR") Windowsinstallationsphad
Username von Netzwerkanmeldung NT
und noch viele andere schöne Informationen (statt "yyy" mal hinter ENVIRON in der Klammer Zahlen eingeben. 1 bis xx
26 Standardverzeichnis ???

oder andere Betriebsysteme
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Benutzerfilter()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
BName = Left(Buffer, BuffLen - 1)
If BName <> "Jürgen" Then Exit Sub
'--------------------------------------
' Andere Ausführungen, wenn Name stimmt
'--------------------------------------
End Sub
Von Jürgen Wenzel

Gruß Hajo

Re: Angemeldeten Benutzer auslesen

28.10.2002 10:40:13

Gerd

Hallo Hajo,
auch wenn ich mich nicht besonders gut ausgedrückt habe Du hast
mein problem super erkannt das ist genau das was ich wollte

DANKE
Gruß Gerd

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den angemeldeten Benutzer in Excel auszulesen und zu verwenden, kannst Du VBA (Visual Basic for Applications) nutzen. Folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Sub Benutzerfilter()
   Dim Buffer As String * 100
   Dim BuffLen As Long
   Dim BName As String

   BuffLen = 100
   Call GetUserName(Buffer, BuffLen)
   BName = Left(Buffer, BuffLen - 1)

   If BName <> "DeinBenutzername" Then
       MsgBox "Zugriff verweigert!"
       Exit Sub
   End If

   MsgBox "Willkommen " & BName
   ' Hier kannst Du die Arbeitsmappe öffnen oder andere Aktionen durchführen
End Sub

Ersetze "DeinBenutzername" durch den Namen, den Du überprüfen möchtest.
Führe das Makro aus, um den angemeldeten Benutzer zu überprüfen.

Häufige Fehler und Lösungen

Fehler: "GetUserName nicht definiert"
- Stelle sicher, dass die Deklaration für GetUserName korrekt ist. Füge diese Zeile am Anfang des Moduls hinzu:
```
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
```
Problem: Das Makro funktioniert nicht
- Überprüfe die Sicherheitsstufe für Makros in Excel. Stelle sicher, dass Makros aktiviert sind.

Alternative Methoden

Wenn Du den Benutzername ohne VBA auslesen möchtest, kannst Du die Excel-Formel verwenden:

Um den Benutzernamen in einer Zelle anzuzeigen, nutze die folgende Formel:
```
=INFO("USERNAME")
```

Diese Formel gibt den aktuellen Benutzernamen zurück, jedoch ohne die Möglichkeit, Bedingungen zu überprüfen.

Praktische Beispiele

Benutzername in der Fußzeile anzeigen: Du kannst den Benutzernamen in der Fußzeile Deiner Excel-Datei einfügen:
```
ActiveSheet.PageSetup.CenterFooter = "Bearbeitet von: " & Environ("USERNAME")
```
Angemeldeten Benutzer anzeigen: Ein einfaches Beispiel, um den Benutzernamen in einer MsgBox anzuzeigen:
```
MsgBox "Angemeldeter Benutzer: " & Environ("USERNAME")
```

Tipps für Profis

Nutze Environ("COMPUTERNAME") und Environ("USERNAME"), um zusätzliche Informationen über den Computer und den Benutzer zu erhalten.
Überlege, wie Du den Code modular gestalten kannst, um die Wiederverwendbarkeit zu erhöhen. Beispielsweise könntest Du eine Funktion erstellen, die den Benutzernamen zurückgibt.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um mehrere Benutzer zuzulassen? Du kannst eine Liste von erlaubten Benutzern erstellen und überprüfen, ob der aktuelle Benutzer darin enthalten ist.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)