User-Log-Datei ?

Private Sub Workbook_Open() With Workbook Open "C:\ViewExcelLog.txt" For Output As #1 Print #1, Format(Now, "YYYY-MM-DD hh:mm:ss") & vbTab & Environ("Username") & vbTab & _ Environ("COMPUTERNAME") Close #1 End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim log(), x As Integer, T ReDim log(0) Close If Dir("C:\ViewExcelLog.txt") "" Then Open "C:\ViewExcelLog.txt" For Input As #1 Do While Not EOF(1) ' Schleife bis Dateiende. Line Input #1, T x = x + 1 ReDim Preserve log(x) log(x) = T Loop Close #1 End If Open "C:\ViewExcelLog.txt" For Output As #1 For x = UBound(log) To 1 Step -1 Print #1, log(x) Next x Print #1, Format(Now, "YYYY-MM-DD hh:mm:ss") & vbTab & Environ("Username") & vbTab & _ Environ("COMPUTERNAME") Close #1 End Sub

Private Sub Workbook_Open() Dim log(), x As Integer, T ReDim log(0) Close If Dir("C:\ViewExcelLog.txt") "" Then Open "C:\ViewExcelLog.txt" For Input As #1 Do While Not EOF(1) ' Schleife bis Dateiende. Line Input #1, T x = x + 1 ReDim Preserve log(x) log(x) = T Loop Close #1 End If Open "C:\ViewExcelLog.txt" For Output As #1 Print #1, Format(Now, "YYYY-MM-DD hh:mm:ss") & vbTab & Environ("Username") & vbTab & Environ( _ "COMPUTERNAME") For x = UBound(log) To 1 Step -1 Print #1, log(x) Next x Close #1 End Sub

Private Sub Workbook_Open() Const LogName = "C:\ViewExcelLog.txt" Const LogNameTemp = "C:\ViewExcelLog_temp.txt" Dim f1 As Integer, f2 As Integer Dim zeileNeu As String, zeile As String With ThisWorkbook zeileNeu = Format(Now, "YYYY-MM-DD hh:mm:ss") & vbTab & Environ("Username") & vbTab & _ Environ("COMPUTERNAME") f1 = FreeFile Open LogNameTemp For Output As #f1 Print #1, zeileNeu f2 = FreeFile If Dir(LogName) "" Then Open LogName For Input As #f2 Do While Not EOF(f2) Line Input #f2, zeile Print #f1, zeile Loop Close #f2 Kill LogName End If Close #f1 Name LogNameTemp As LogName End With End Sub

Hi
speicher doch die Daten nicht in einem seperaten LogFile sondern in einem versteckten Sheet in der gleichen Datei. Dann kannst du deine Probleme relativ einfach lösen.
über den Usernamen kannst du ja bestimmen, wer das Blatt zu sehen bekommt.


Private Sub Workbook_Open()
Dim shAlt As Worksheet
Set shAlt = ActiveSheet
Application.ScreenUpdating = False
On Error GoTo LogErstellen
Select Case Environ("Username")
Case "DeinUsername" '--- dieser User bekommt das Logfile angezeigt
Sheets("Logfile").Visible = True
Case Else
Sheets("Logfile").Visible = xlVeryHidden
End Select
On Error GoTo 0
With Sheets("Logfile")
.Rows(.Rows.Count).Delete '--- verhindert Überlauf
.Rows(2).Insert CopyOrigin:=xlFormatFromRightOrBelow
.Cells(2, 1).Value = Now
.Cells(2, 2).Value = Environ("Username")
.Cells(2, 3).Value = Environ("Computername")
End With
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
LogErstellen:
Sheets.Add after:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "LogFile"
ActiveSheet.Visible = xlVeryHidden
With Sheets("LogFile")
.Cells(1, 1).Value = "Zeit"
.Cells(1, 2).Value = "Benutzer"
.Cells(1, 3).Value = "Computer"
.Columns(1).NumberFormat = "YYYY-MM-DD hh:mm"
.Columns(1).ColumnWidth = 15
.Cells(1, 1).Resize(1, 3).Interior.ColorIndex = 15
End With
shAlt.Select
Resume
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread