Möglichkeiten der Prüfung einer ext. Excel-Datei

Hallo,
ich möchte hier eine Art Brainstorming durchführen, da ich dieses Mal überhaupt keinen Ansatz finde (sonst weiß ich in der Regel, was ich will und frage hier nach der richtigen Vorgehensweise).
Vorgaben:
1.) Ich habe eine nicht freigegebene Arbeitsmappe als Kundendatenbank. Diese Datei kann deshalb immer nur ein Nutzer öffnen um dann Änderungen vorzunehmen.
2.) Ich habe eine weitere freigegebene (!) Datei, welche den Inhalt der ersten Datei wiedergibt und von mehreren Personen gleichzeitig eigentlich immer geöffnet ist. Dort werden aber keine Änderungen in den Stammdaten vorgenommen! (Verhindert durch Blattschutz)
Wunschergebnis:
Wenn ein Benutzer in der ersten Datei eine Änderung vorgenommen hat, würde ich gerne eine Möglichkeit haben, alle Benutzer der zweiten Datei dieses Mitzuteilen (Durch eine MSGBox, ein Blinklicht, eine eingefärbte Zelle, was weiß ich). Die jeweiligen Nutzer der zweiten Datei können dann darauf reagieren (sie müssten ein Makro ausführen), können dass aber auch erst zeitverzögert machen, wenn Sie z.B. gerade etwas anderes am PC arbeiten (Briefe schreiben, surfen, Youtube-Videos gucken usw. *g*).
Wichtig:
Während der gewünschten Änderungsabfrage, wie die auch immer aussehen mag (gerne aber VBA), möchte ich den Arbeitsprozess der Benutzer möglichst nicht behindern, da diese eventuell gerade in einer anderen Exceldatei arbeiten usw. Es sollen also keine Lacks enstehen, also das kurze einfrieren des Bildschirms oder der gleichen.
Hat jemand eine Idee?
Gruß
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christian,
ich würde mal testen, ob es so funktioniert:
a) die nicht freigegebene Datei (nfD) erhält ein Makro, das eine simple Textdatei schreibt, die z.B. "Hier.txt" heißt und einen im Prinzip uninteressanten Text enthält, z.B. "Hello world".
b) die fD fragt beim Öffnen den Zeitstempel dieser Textdatei ab.
c) während sie geöffnet ist, fragt ein Makro zeitgesteuert, meinetwegen alle 5 Minuten, den Zeitstempel ab und vergleicht ihn mit dem zuletzt hinterlegten:

wenn er identisch ist, dann
nix
sonst
erzeuge Hinweis
ersetzte den alten durch den neuen Zeitstempel
wenn ende

Die Textdatei wird dabei nur "dir-mäßig" abgefragt, aber nicht geöffnet, so daß es eigentlich keine Probleme mit "Zugriffen" geben sollte.
Bekommst Du das VBA-mäßig hin?
Schöne Grüße,
Michael

Sub DatenXLSMAnzeigen() Dim p As Variant ' hier nicht als String, weil auch false möglich Dim s$ p = Application.GetOpenFilename("xlsm-Datein *.xlsm ,*.xlsm") If p = False Then Exit Sub ' falls abgebrochen s = Dir(p) ' liefert Dateinamen, aber ohne Pfad If s "" Then MsgBox FileDateTime(p) ' deshalb hier Aufruf mit p statt s End If End Sub

Beliebteste Forumthreads (12 Monate)

Möglichkeiten der Prüfung einer ext. Excel-Datei

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread