ich möchte gerne prüfen, ob eine freigegebene Arbeitsmappe geöffnet ist.
Ich habe es mit diesem Code versucht:
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function
Sub test()
If IsWorkbookOpen(DATEI) Then
msgbox "Datei geöfnet"
Exit Sub
Else
msgbox " Datei ungeöffnet"
Exit Sub
End If
End Sub
Leider funktioniert das aber nicht bei einer freigegebnen Arbeitsmappe.
Weiß jemand eine Lösung?
Danke und Gruß r2d2