User-Log bei Schreibschutz?
02.01.2008 14:01:04
Klaus
ich habe folgendes kleines Makro um mal zu sehen, wer so in meinen Dateien rumschnüffelt.
Private Sub Workbook_Open()
Dim IRow As Long
With Sheets("Log")
IRow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & IRow) = Date
.Range("B" & IRow) = Time
.Range("C" & IRow) = Environ("USERNAME")
End With
End Sub
Frage: Wie krieg ich das dazu, auch zu funktionieren wenn der Schreibschutz gesetzt ist? Kann ich die Sachen vielleicht in eine TXT-Datei schreiben?
Grüße,
Klaus M.vdT.
Anzeige