Datei offen auf einem Netzlaufwerk?
07.09.2004 13:51:56
Michael
Ich befasse mich seit ca. 3 Wochen mit dem Thema Excel-VBA und stoße nun auf ein Problem bei dem ich einfach nicht weiter komme.
Problem:
Innerhalb meines Programms prüfe ich ob eine Datei, die auf einem Netzlaufwerk(J:\) liegt, bereits von einem anderen Anwender geöffnet ist.
Wenn ich selbst auf meinem Rechner diese Datei geöffnet habe und nun das Makro starte, das auch diese Datei öffnen will, funktioniert es.
Wenn aber nun diese Datei auf einem anderen Netzwerkrechner geöffnet ist und ich jetzt mein Makro starte, gibt er keine Meldung aus. Was mache ich falsch?
Für jegliche Hilfe wäre ich dankbar!!!
Grüße
Michael
Mein Code:
Sub DateiCheck()
Dim offen As Boolean
'Wechsel in das Unterverzeichnis mit der Datei
ChDir "Test"
offen = dateiOffen("blabla.xls")
If offen = True Then
MsgBox "Datei ist geöffnet!"
Else
MsgBox "Datei ist geschlossen!"
End If
End Sub
Function dateiOffen(sfile As String) As Boolean
'Check ob Datei geöffnet ist
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sfile)
If Not wkb Is Nothing Then
dateiOffen = True
Else
dateiOffen = False
End If
End Function