Problem: schreibgeschützte Datei erkennen
10.05.2013 12:10:25
Levi
stehe wieder mal vor einem Problem:
Ich habe ein Makro, mit dem ich Kundennummern aus einer anderen Datei abfragen kann. Das funktioniert bestens. Voraussetzung dazu ist, dass die Kundennummer-Datei offen ist.
Damit dies gewährleistet ist, wird zuerst abgefragt, ob die Datei schon offen ist (=weiter im Marko) oder zu (=Datei wird geöffnet). Funktioniert ebenfalls.
Zum Problem: wenn die Kundennummer-Datei SCHREIBGESCHÜTZT geöffnet ist, wird diese nicht als offen erkannt und will nochmals geöffnet werden. Wo liegt der Fehler?
Meine bescheidene Vermutung: es liegt in der Zeile:
"Open tFileName For Random Access Read Lock Read Write As #hFile"...?
Danke für jede Hilfe!
Gr Levi
Sub Abfrage()
If IsFileInUse("T:\xxx.xls") = True Then
usrSuchen.Show 'Führt Nummernabfrage durch, funktioniert einwandfrei
Else
If MsgBox("Bitte zuerst Datenbank öffnen!" & Chr(13) & "Jetzt direkt öffnen?", vbYesNo + _
vbQuestion, "Fehlende Datei") = vbYes Then
Workbooks.Open Filename:="T:xxx.xls", UpdateLinks:=0, ReadOnly:=True
End If
usrSuchen.Show 'Führt Nummernabfrage durch, funktioniert einwandfrei
End If
End Sub
Function IsFileInUse(tFileName As String) As Boolean
Dim hFile As Long
On Error Resume Next
hFile = FreeFile()
Open tFileName For Random Access Read Lock Read Write As #hFile
IsFileInUse = Err.Number 0
Close #hFile
End Function