For liIndex = 1 To Workbooks.Count
If Workbooks(liIndex).Name = "DeineNeueDatei" Then Exit sub
Next
Dann erstellst du nur für dich eine Hilfsdatei, z Bsp "DeineNeueDatei.xls", mit der du in Zukunft die eigentliche Dateistartest.
"Deine" Datei enthält einfach nur diesen Code in Workbooks.Open:
Workbooks.Open "Pfad\dieEigentliche.Datei.xls"
Fertig.
Wenn du nun mit Hilfer der Hilfsdatei die eigentliche Datei öffnest, um die es geht, dann wird zuerst in der For/Next-Schleife danach gesucht, ob auch deine Hilfsdatei geöffnet ist.
Wenn Ja, dann wird kein weiter Code ausgeführt.
Öffnest du die eigentliche Datei, OHNE, dass du zuvor die Hilfsdatei offen hast, wird der Name der Hilfsdatei NICHT in der Schleife gefunden, und der nach der Schleife folgende Code wird ausgeführt.
Somit wird der Code also auch immer ausgeführt, wenn jemand anderer die Datei öffnet, da ja nur du die Hilfsdatei hast.
Hilft das?
Ciao
Thorsten