Zugriffslog-Erstellung
13.07.2005 13:54:04
Tom
hab hier schon mal gute Hilfe bezüglich der Erstellung eines Zugriffs-Log-Files erhalten.
Der code hierfür ist
Dim lngResult As Long
'On Error GoTo fehlerweg
nSize = 100
sName = Space$(100)
lngResult = GetUserName(sName, nSize)
If lngResult 0 Then
UserName = Left$(sName, nSize - 1)
End If
End Function
Sub Auto_open()
Zugriff
End Sub
Sub Zugriff()
Sheets("Log").Select
ActiveSheet.Unprotect Password:="master"
If Sheets("Log").Range("a65535").End(xlUp).Row >= 65535 Then
Sheets("Log").Range("A2:C65535").Select
Selection.Clear
Sheets("Log").Cells(2, 1).Select
End If
With Cells(Sheets("Log").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
.Select
.Value = Now
End With
With Cells(Sheets("Log").Cells(Rows.Count, 2).End(xlUp).Row + 1, 2)
.Select
.Value = UserName 'Windows-Anmeldung
End With
ActiveSheet.Protect Password:="master"
ActiveWorkbook.Save
End Sub
Nun zur Frage:
Soweit klappt auch alles wenn ich den Code in eine leere Mappe kopiere. Ich hab jedoch eine Mappe in der im Reiter "Diese Arbeitsmappe" (im MS VB) folgenden Code stehen habe, mit dem ich immer im ersten Blatt lande und es einen Hinweis per Userform bekomme
Private Sub Workbook_Open()
Sheets("NK 2005").Activate
Range("H12").Select
StartPopup.Show
End Sub
Wenn ich dies entferne, klappt das mit der Log-File, wenn ich es beibehalte, funktioniert das nicht.
Kann mir jemand helfen das ich beide Sachen nutzen kann?
MfG aus Berlin
Tom