Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zuletzt gespeichert von

Forumthread: zuletzt gespeichert von

zuletzt gespeichert von
16.09.2004 07:57:13
Winni
Hallo Gemeinde,
hier wieder mal ne Frage.
Ich habe diverse Tabellen auf unserem Firmenserver abglegt, nun möchte ich rausfinden (ohne die Datei anzufassen) wann und von wem sie zuletzt gespeichert wurde. Das soll so´ne Art Zugriffsprotokoll werden.
Wäre nett wenn jemand eine Lösung wüsste.

Danke im Voraus

Winni
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zuletzt gespeichert von
16.09.2004 08:13:33
Daniel
Hi Winni,
einfach folgenden Code im Workbook einfügen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Environ("UserName")
Range("A2") = Application.UserName
End Sub

"Environ" zeigt den Namen an, der in Windows eingetargen ist
"Application.Username" den in Excel eingetragenen
Hoffe, es hat dir geholfen.
mfg Daniel
Anzeige
AW: zuletzt gespeichert von
16.09.2004 08:25:29
Marcl
Hallo Winni,
erstelle Dir eine extra Datei mit dem Namen Zugriff und speicher in "C:\Eigene Dateien" oder ändere den Pfad.
A1 = Dateiname
B1 = Datum
C1 = Username
Zelle a2 markieren.
Der Rest geht dann von selbst
Dieses Makro in jede Datei,, die Du protokollieren willst eintragen.

Sub auto_open()
Application.ScreenUpdating = False
datei = ActiveWorkbook.Name
Workbooks.Open Filename:= _
"C:\Eigene Dateien\Zugriff.xls"
datum = Date
us = Application.UserName
' muss Zelle A2 sein
ActiveCell = datei
' zu B gehen
ActiveCell.Offset(0, 1).Select
ActiveCell = datum
' zu C gehen
ActiveCell.Offset(0, 1).Select
ActiveCell = us
' zurück zu A und eine Zeile tiefer
ActiveCell.Offset(1, -2).Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Gruß
Marcl
Anzeige
AW: zuletzt gespeichert von
16.09.2004 08:38:16
Winni
Hallo Marcel, hallo Daniel,
ich werde gleich eure Vorschläge in die Tat umsetzten, ich melde mich dann wieder.
Allerheftigsten Dank.............

Gruß
Winni
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige