Datei nach Überprüfung öffnen
18.12.2004 18:08:54
Till
Ich habe eine Datei, in der über eine Schaltfläche eine andere Datei geöffnet werden soll. Bevor diese Datei jedoch geöffnet wird, soll erst überrpüft werden, ob sie nicht schon geöffnet ist (nicht nur lokal, sondern im Netzwerk).
Habe mir schon den folgenden Code zusammengesucht. Das Problem dabei ist jedoch, das die Datei schreibgeschützt geöffnet wird, wenn sie woanders schon offen ist. Dann erscheint auch die Fehlermeldung, was ja richtig ist.
Ich könnte die Datei zwar direkt im Anschluss daran wieder schließen, nur ist die Datei ein paar MB groß und dementsprechend dauert es bis die geladen ist.
Code:
Private Sub CommandButton1_Click()
Dim sFile As String
sFile = CommandButton1.Caption
Öffnen (sFile)
End Sub
Sub Öffnen(sFile)
Dim aFile As String
Dim sPath As String
aFile = sFile & ".xls"
sPath = "C:\"
Workbooks.Open sPath & aFile
On Error Resume Next
ActiveWorkbook.AcceptAllChanges
If Err = 1004 Then
MsgBox ("Datei ist schon auf einem anderen PC geöffnet. Nach 5 minütiger Inaktivität wird diese auf dem anderen PC geschlossen und ist hier verfügbar. Bitte dann erneut versuchen!")
End If
End Sub
Wäre schön, wenn ihr mir da weiterhelfen könntet.
Grüße,
Till