Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benutzer feststellen

Benutzer feststellen
09.10.2002 15:05:56
Anna
Hallo Forum,
wie kann ich den Benutzer Namentlich feststellen, der die Excel-Tabelle öffnet und wie kann ich ihn 1* (beim ersten Öffnen der Tabelle für diesen Tag) begrüßen. Vielen Dank wieder mal für Eure Hilfe.
Liebe Grüße
Anna

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

Betreff
Datum
Anwender
Anzeige
Re: Benutzer feststellen
09.10.2002 15:13:19
JürgenR
Hi,

so:

MsgBox Application.UserName

Gruß
Jürgen

Danke, Jürgen. Gewußt wie. Ich liebe dieses Forum!
09.10.2002 15:51:58
Anna

Re: Benutzer feststellen
09.10.2002 18:54:03
Hajo_Zi
Hallo Anna

Mit dem Vorschlag von Jürgen wird nur der Benutzer, der in Excel eingetragen ist ausgelesen.

119. 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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige