Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige