folgendes Problem:
Beim Öffnen einer bereits geöffneten Datei kommt das Hinweisfenster "Dokument wird bearbeitet".
Dieses Fenster möchte ich deaktivieren um meine eigene Meldung zu generieren.
Hat einer da eine Idee.
Gruss Ralf
Sub Öffnen()
Dim fn As String
fn = ThisWorkbook.Path & "\test1.xls"
If DateiInBearbeitung(fn) Then
MsgBox "Datei wird verwendet!"
Else
Workbooks.Open fn
End If
End Sub
Function DateiInBearbeitung(s As String) As Boolean
On Error Resume Next
Open s For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiInBearbeitung = True
Err.Clear
End If
End Function
Gruß Matthias