AW: Liste der Benutzer erstellen
10.05.2007 12:35:23
Reinhard
Hallo Will,
vielleicht versuchst Du mal das folgende:
Du wählst irgenein Ereignis (hier: vor dem Sichern), was den derzeit angemeldeten User in das Blatt "Zugriff" in Spalte "B" einträgt. In der Spalte daneben die Zeitangabe des Zugriffs.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
uz = Sheets("Zugriff").Columns("B:B").End(xlUp).Row
Cells(uz + 1, 2).Value = UserID
Cells(uz + 1, 3).Value = Format(Now, "dd.mm.yy hh:mm")
End Sub
Auf Modulebene musst Du die Deklaration und die Funktion eintragen:
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, _
lpnLength As Long) As Long
Function UserID() As String
Dim lpUserName As String
lpUserName = Space$(255)
lpName = Space$(0)
Status = WNetGetUser(lpName, lpUserName, 254)
UserID = Left(lpUserName, 7) ' Die 7 ist eine Stellenangabe, die du verändern kannst.
End Function
Gruß Reinhard