ich habe mehrere größere Exceltabellen, die von verschiedenen Mitarbeitern im Unternehmen verwendet werden. Es ist notwendig, daß jeder Mitarbeiter seine eigene Kopie der jeweiligen Datei hat, es kann also nicht mit zentral auf dem Server abgelegten Dateien gearbeitet werden.
Nun möchte ich in meine Dateien eine kleine Versionsverwaltung einbauen, um zu verhindern, daß die Leute mit alten Versionen der Dateien arbeiten.
Dazu habe ich in den Dateieigenschaften im Feld "Version" die Versionsnummer abgelegt. Die jeweils aktuellste Version der einzelnen Dateien lege ich auf einem Server ab, von dem sich die verschiedenen Leute die Dateien holen können.
Damit auch jeder mitkriegt, wenn eine neue Version einer Datei existiert, soll das automatisch per Makro geprüft werden. Bei jedem Öffnen einer Datei soll dieses Makro die Versionsnummer in den eigenen Dateieigenschaften vergleichen mit der Versionsnummer der Datei auf dem Server und ggf. einen Hinweis ausgeben.
Mit folgendem kleinen Script habe ich es schon geschafft, die Eigenschaften einer anderen Datei richtig auszulesen. Allerdings habe ich dabei ein Problem: Die Datei wird hierzu vollständig geöffnet, was aufgrund der Dateigrößen teilweise sehr lange dauert.
Sub EigenschaftenAuslesen()
Dim objDatei As Object, strDateiname As String
strDateiname = "\\server\pfad\datei.xlsm"
Set objDatei = GetObject(strDateiname)
MsgBox objDatei.BuiltinDocumentProperties.Item(8)
objDatei.Close False
Set objDatei = Nothing
End Sub
Nun meine Frage: gibt es eine Möglichkeit, die Dateieigenschaften einer anderen Datei auszulesen, OHNE diese vollständig zu öffnen? Gehen müsste das, denn der Windows-Explorer kann diese Infos ja auch zeigen, ohne die Datei zu öffnen. Immerhin gebe ich den Wert in das Versionsfeld ja im WindowsExplorer ein.Danke für eure Hilfe.
Gruß André