Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nutzer/Autor speichern

Nutzer/Autor speichern
30.03.2006 10:38:40
christian
Hallo
wie kann ich den Autor/Nutzer, der als letzter die Datei gespeichert hat in einer Zelle erfassen?
gibts da auch was nur für "geändert"(ist vielleicht besser, da speichern ja auch 'nach' schließen der Datei passiert)
Danke im Voraus
Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Nutzer/Autor speichern
30.03.2006 11:34:26
Erich
Hallo Christian,
probier mal (im Klassenmodul "DieseArbeitsmappe"):
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Cells(14, 1) = Application.UserName
' oder
If Not ActiveWorkbook.Saved Then Sheets(1).Cells(15, 1) = Application.UserName
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Nutzer/Autor speichern
30.03.2006 11:58:42
Harald
Hi Christian,
oder auch so. (Code gehört ebenfalls in Modul DieseArbeitsmappe

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets(3).Cells(2, 1) = "am " & Date & " geändert von " & Environ("username")
Application.EnableEvents = True
End Sub

Gruss Harald
Anzeige
AW: Nutzer/Autor speichern
30.03.2006 15:04:02
christian
Subber sach! DANGE!!!
:)
*freu*

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige