Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nutzer/Autor speichern

Forumthread: 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
Anzeige

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

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