log Datei trotz Kopierschutz
04.03.2008 15:23:00
Thomas
ich habe per
Sub InTextdatei()
Dim sTxt As String
Dim name As String
Dim vorname As String
Dim nachname As String
Dim PCName As String
Dim Zeit As String
Dim User As String
name = Environ(16)
User = Environ(45)
PCName = Environ(21)
Zeit = Now
On Error GoTo ERRORHANDLER
If InStr(name, "=") Then
name = Right(name, Len(name) - InStr(name, "="))
vorname = Left(name, InStr(name, " "))
nachname = Right(name, Len(name) - InStr(name, " ") + 1)
End If
Open "\\1-server\07 Kaufm. Abteilung\Statistik\logSollIst07.txt" For Append As #1
sTxt = User & ";" & PCName & ";" & Now & ";" & name
sTxt = Now & ";" & Environ("Username") & ";" & Application.UserName
Print #1, sTxt
Close
Exit Sub
ERRORHANDLER:
MsgBox "Textdatei konnte nicht erstellt werden!"
End Sub
eine Log-Datei erstellen lassen. Das klappt auch soweit ganz gut.
Könnte mir jedoch jemand verraten, wie ich dies erweitern müsste. das auch die Namen von den Nutzern eingetragen werden, die die Liste schreibgeschützt öffnen? Irgendwie muss doch der Code die Datei mit dem Passwort öffnen oder?
PS: dass das Passwort dann in VBA steht ist völlig unrelevant, das wäre also kein Problem.
Danke für jegliche Hilfe!
MfG aus Berlin
Thomas R.