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
so:
MsgBox Application.UserName
Gruß
Jürgen
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