Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige