Hallo, mein letztes Problem wurde gelöst, so öffne ich eine Datei.
Dim xxx As Long
xxx = Shell(Application.Path & "\excel.exe F:\Vorlagen\a.xls", vbMaximizedFocus)
jetzt möchte ich vorher prüfen, ob jem im Netwerk die datei schon geöffnet hat, damit es nicht zur standardmedung datei wird benutzt, schreibgeschütz... kommt.
mit
If ActiveWorkbook.ReadOnly Then MsgBox "Schreibgeschützt!" ausm archiv
gehts irgendwie nicht. da ich den focus übergebe, muß das auch vorher liegen.