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

Prüfen wer auf meine Arbeitzmappe zugegriffen hat

Forumthread: Prüfen wer auf meine Arbeitzmappe zugegriffen hat

Prüfen wer auf meine Arbeitzmappe zugegriffen hat
16.12.2005 16:13:54
Jörg
Hallo,
wie kann ich prüfen oder sehen wer alles auf meine Arbeitzmappe zugegriffen hat und was er verändert hat.
auf einem gesonderten Blatt ( Tabelle) soll stehen WER, WANN und welche Veränderungen gemacht wurden, die Tabelle darf aber nur von mir zu sehen sein.
Vieleicht gibt es eine Beispieldatei.
Danke Jörg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen wer auf meine Arbeitzmappe zugegriffen hat
16.12.2005 16:40:32
Andi
Hi,
das folgender Code (im Modul "DieseArbeitsmappe") erstellt das gewünschte log in Tabelle3:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim zeile As Long
Application.EnableEvents = False
With Worksheets("Tabelle3")
zeile = .Range("A65536").End(xlUp).Row + 1
.Cells(zeile, 1).Value = Application.UserName
.Cells(zeile, 2).Value = Date
.Cells(zeile, 3).Value = Time
.Cells(zeile, 4).Value = Sh.Name
.Cells(zeile, 5).Value = Target.Address
.Cells(zeile, 6).Value = Target.Value
End With
Application.EnableEvents = True
End Sub

Tabelle3 kannst Du zB xlSheeVeryHidden ausblenden und per Code, zB über nen Button oder eine Tastenkombination nach ner Passwort-Abfrage einblenden.
Schönen Gruß,
Andi
Anzeige
AW: Prüfen wer auf meine Arbeitzmappe zugegriffen hat
16.12.2005 17:15:32
Jörg
Hallo,
Danke für die schnelle Antwort.
Jörg
AW: Prüfen wer auf meine Arbeitzmappe zugegriffen hat
ransi
hallo
vom prinzip her nicht schlecht, aber:
.Cells(zeile, 1).Value = Application.UserName
änder besser in:
.Cells(zeile, 1).Value = VBA.environ("UserName")
weil:
in Firmen ist oft application.username der firmenname.
Ausserdem kann der wert von jedem verändert werden.
zu finden und zu ändern hier:
Extras-optionen
register allgemein
Benutzername
VBA.environ("UserName") gibt den Anmeldenamen im netzwerk aus.
Ist daher besser für deine zwecke geeignet.
ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

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