19.10.2018, 14:03 (Dieser Beitrag wurde zuletzt bearbeitet: 19.10.2018, 14:03 von Käpt'n Blaubär.)
Hallo nochmal,
in Deinem Bildchen werden Warnungen angezeigt. Was sagen die denn aus? Bei einem funktionierenden Verknüpfungsfenster sieht das, ohne jedes weitere Geklicke, eher so aus.
Allerdings habe ich, zugegebenermaßen niemals versucht, Textdateien mit Excel zu verknüpfen.
diese Variante ist recht einfach: Das Makro prüft offene xls? in bestimmten Ordner und gibt den Namen der Datei und den Zeitsempels des Öffnens zurück.
Ein Auslesen der Person, die die Datei geöffnet hat, war bei einem ersten Test NICHT möglich.
Das Makro müßte mit Application.OnTime regelmäßig gestartet werden.
Code:
Sub T_1()
Pfad = ThisWorkbook.Path With CreateObject("shell.application").Namespace(Pfad) f = Dir(Pfad & "\~*.xls?")
Do While Len(f) Debug.Print f, .getDetailsOf(.Items.Item(f), 5)