Mein Makro prüft ob eine Datei schon geöffnet ist.
Wenn ja soll eine Meldung kommen und alle Excel Dateien schlissen.
Die meldung kommt schon aber nur wenn die Datei im Netzwerk durch mich geöffnet ist. Wenn ich schreibe in dem Makro Netzwerkpfad, funktioniert es nicht.
Danke für Eure Hilfe.
Sub pruefen()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "nachschubprobleme verbal 2004.xls" Then
'so funktioniert nicht If wb.Name = "f:\fgk_pl\plw\hotline\nachschubprobleme verbal 2004.xls"
MsgBox "Datei schon offen."
Exit For
End If
Next
End Sub