Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benutzernamen

Benutzernamen
12.11.2003 11:06:14
Tobias
Hallo!

Ich habe eine Exceltabelle zur Urlaubsplanung, auf die jeder Zugriff hat. Ich möchte nun, daß diese Tabelle automatische erkennt welcher Benutzer angemeldet ist, damit je nach Status (Mitarbeiter oder Chef) verschiedene Berechtigungen verteilt werden. Bisher habe ich das über den Benutzernamen gelöst der in Excel unter "Extras" "Optionen" "Allgemein" automatisch vom Profil her eingestellt ist. Jetzt habe ich aber festgestellt, daß man ihn ganz einfach umändern kann. Ist es möglich den angemeldeten Benutzer in excel anders abzufragen, zum beispiel über windows?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzernamen
12.11.2003 11:07:17
Hajo_Zi
Hallo Tobias

schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


AW: Benutzernamen
12.11.2003 11:14:43
Tobias
Das bringt mich leider auch nicht weiter, da ich von hier aus nicht darauf zugreifen kann
Anzeige
AW: Benutzernamen
12.11.2003 11:24:21
Hajo_Zi
Hallo Tobias

Option Explicit

Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Function BenutzerName1()
Dim Buffer As String * 100
Dim BuffLen As Long
Application.Volatile
BuffLen = 100
GetUserName Buffer, BuffLen
BenutzerName1 = Left(Buffer, BuffLen - 1)
' Von Jürgen Wenzel
End Function

Function BenutzerName()
Application.Volatile
BenutzerName = Application.UserName
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige