History

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
  • History von Harry vom 10.04.2002 - 22:09:47
nach unten

Betrifft: History
von: Harry
Geschrieben am: 10.04.2002 - 22:09:47

Hallo

Habe leider schon wieder ein Problem.
Ich habe eine Mappe die von mehreren Rechnern bearbeitet wird.
Ich habe jetzt von der Excel-CD das VB genommen und bei mir eingesetzt.
Funktioniert auch gut.
Leider kommt bei der Zeile Application.User nur der Name
der unserer Firma. Ich sollte aber den Namen des Rechners haben
um feststellen zu können wer von wo aus etwas geändert hat.

Hoffe ihr könnt mir helfen.

mfg

Harry


nach oben   nach unten

Re: History
von: Hajo
Geschrieben am: 11.04.2002 - 06:31:50

Hallo Harry

mit "Application.User" bekommst Du nu den Eintrag der unter Extra, optionen, Register Allgemein, unter Benutzername steht. Möchtest Du den Anmeldenamen vom Netz haben dann wie folgt

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "History"