Prüfen, ob ein Worddokument geöffnet ist

[Jürgen Dietze]

Excel 2000, WinNT40, Netzwerkumgebung

Hallo zusammen,
ích erzeuge aus einer Exceltabelle heraus Worddokumente
mit bestimmten Informationen. Von Zeit zu Zeit ist es
notwendig, diese Informationen zu aktualisieren. Die Word-
Dokumente werden immer in einem bestimmten Netzlaufwerk
abgelegt.
Jetzt weiß ich zwar, wie ich überprüfen kann, ob dieses
Dokument schon existiert - wie überprüfe ich aber von
Excel aus, ob dieses Dokument geöffnet ist? Kann ich auch
erfahren, von wem?

Wer kann mir da weiterhelfen?

Gruß
Jürgen

[stefan onken]

hallo Jürgen,
so sollte es gelingen:

Sub IstWordDateiGeöffnet()
Dim wdDateiName
wdDateiName = "D:\test\word.doc"
On Error Resume Next
Open wdDateiName For Binary Access Read Lock Read As 1
Close #1
If Err.Number = 70 Then
'Datei ist bereits offen
MsgBox wdDateiName & " ist in Benutzung"
Else
MsgBox wdDateiName & " ist nicht in Benutzung"
End If
On Error GoTo 0
End Sub

Es gibt ein tool namens xlock
http://195.186.84.74/download/descriptions/xlock.htm
was man evtl über den Shell-Befehl in VBA einbinden
könnte, habe ich aber nicht ausprobiert.

Gruß
stefan

-----Originalnachricht-----
Excel 2000, WinNT40, Netzwerkumgebung
Hallo zusammen,
ích erzeuge aus einer Exceltabelle heraus Worddokumente
mit bestimmten Informationen. Von Zeit zu Zeit ist es
notwendig, diese Informationen zu aktualisieren. Die

Word-

Dokumente werden immer in einem bestimmten Netzlaufwerk
abgelegt.
Jetzt weiß ich zwar, wie ich überprüfen kann, ob dieses
Dokument schon existiert - wie überprüfe ich aber von
Excel aus, ob dieses Dokument geöffnet ist? Kann ich

auch

erfahren, von wem?
Wer kann mir da weiterhelfen?
Gruß
Jürgen
.

[Jürgen Dietze]

Hallo Stefan,
funktioniert wunderbar.

Danke
Jürgen