Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

zuletzt gespeichert von

Betrifft: zuletzt gespeichert von von: Winni
Geschrieben am: 16.09.2004 07:57:13

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

  


Betrifft: AW: zuletzt gespeichert von von: Daniel
Geschrieben am: 16.09.2004 08:13:33

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


  


Betrifft: AW: zuletzt gespeichert von von: Marcl
Geschrieben am: 16.09.2004 08:25:29

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


  


Betrifft: AW: zuletzt gespeichert von von: Winni
Geschrieben am: 16.09.2004 08:38:16

Hallo Marcel, hallo Daniel,

ich werde gleich eure Vorschläge in die Tat umsetzten, ich melde mich dann wieder.

Allerheftigsten Dank.............


Gruß

Winni


 

Beiträge aus den Excel-Beispielen zum Thema "zuletzt gespeichert von"

Auflistung der jeweils zuletzt ausgewählten 10 Zellen
Name der zuletzt erstellten CheckBox auslesen