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

Zugriffskontrolle

Zugriffskontrolle
11.10.2004 12:58:30
Peter
Hallo,
meine Frage ist, kann man die Zugriffe auf eine Exceldatei, die im Netzwerk steht registieren, mit Datum und Name, wenn ja wie.
Bitte für mich so einfach wie nur möglich.
Am liebsten wäre mir ein extra Tabellenblatt in der zu kontrollierenden Tabelle.
Danke für die Hilfe.
Gruß
Peter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriffskontrolle
11.10.2004 13:02:39
joschi05fan
Hallo Peter,
machen kann man dies z.B. unter Extras = Arbeitsmappe freigeben...
MFG
Joschi
AW: Zugriffskontrolle
11.10.2004 13:15:28
peter
Habe mich vielleicht ein bischen falsch ausgedrückt, ich will nur kontrollieren, wer wie oft diese Datei benutzt.
Peter
AW: Zugriffskontrolle
11.10.2004 13:18:27
Matthias G
Hallo Joschi,
geht schon, aber nur mir Makros - und ein halbwegs versierter Anwender kann diese Kontrolle leicht umgehen, wenn er diese deaktiviert.
Trotzdem erwünscht?
Gruß Matthias
AW
11.10.2004 13:22:11
peter
Hallo Matthias,
ja das reicht.
peter
AW: AW
11.10.2004 13:32:03
Matthias G
Hallo Peter,
folgenden Code in "DieseArbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open ThisWorkbook.Path & "\logfile.txt" For Append As #1
Print #1, Now() & ": geschlossen von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Open ThisWorkbook.Path & "\logfile.txt" For Append As #1
Print #1, Now() & ": gespeichert von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\logfile.txt" For Append As #1
Print #1, Now() & ": geöffnet von " & Environ("USERNAME")
Close #1
End Sub
Dann wird eine Logdatei namens logfile.txt im gleichen Verzeichnis erstellt und aktualisiert.
Gruß Matthias
Anzeige
AW: AW
11.10.2004 13:45:24
Peter
Hallo Matthias,
das ist das, was ich brauche.
Wenn das logfile in das Verzeichnis S:\Logistik\Auftragsabwickung\Meier geschrieben werden soll, wie muß die Befehlszeile dann lauten?
Ansonsten erst mal an alle eine Danke
Peter
AW: AW
11.10.2004 13:50:33
Matthias G
Hallo Peter,
Const logfile = "S:\Logistik\Auftragsabwickung\Meier\logfile.txt"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open logfile For Append As #1
Print #1, Now() & ": geschlossen von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Open logfile For Append As #1
Print #1, Now() & ": gespeichert von " & Environ("USERNAME")
Close #1
End Sub
Private Sub Workbook_Open()
Open logfile For Append As #1
Print #1, Now() & ": geöffnet von " & Environ("USERNAME")
Close #1
End Sub
Allerdings brauchen alle Anwender ein Schreibrecht auf die Datei! Sonst bricht das Makro mit einer Fehlermeldung ab.
Gruß Matthias
Anzeige
OT Auch in "diese Arbeitsmappe"?
11.10.2004 13:52:24
peter
AW: ja logisch o.w.T
11.10.2004 13:55:39
Matthias G
...
OT: Danke
11.10.2004 14:06:04
peter
AW: Zugriffskontrolle
11.10.2004 13:22:05
andre
Hallo Peter,
das wird nix 100%iges.
Du könntest z.B. mit einem Makro beim Öffnen den Namen in eine unsichtbare Tabelle oder ein Logfile schreiben. Setzt aber zumindest voraus dass der user das Ausführen von Makros erlaubt und bei der Tabelle das er auch speichert.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige