Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

User-Log bei Schreibschutz?

User-Log bei Schreibschutz?
02.01.2008 14:01:04
Klaus
Hallo Forum,
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: User-Log bei Schreibschutz?
02.01.2008 14:12:46
Rudi
Hallo,

Kann ich die Sachen vielleicht in eine TXT-Datei schreiben?


Klar!


open "c:\Logdatei.txt" for append as #1
Print #1, Format (Now,"YYMMDD hh:mm:ss") &vbtab &environ("Username")
close #1


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Super, vielen Dank! owT
03.01.2008 09:19:00
Klaus
.

AW: User-Log bei Schreibschutz?
02.01.2008 14:22:07
Daniel
Hallo,
so könnte ein Start aussehen...

Private Sub Worksheet_Activate()
Dim IRow As Long
With Sheets("Log")
Open "C:\Nokia\Export.txt" For Output As #1
Print #1, Date & Time & Environ("USERNAME")
Close #1
End With
End Sub


Gruß DD

Anzeige
Auch hier danke!
03.01.2008 09:24:55
Klaus
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige