wie muss das vorhandene Makro erweitert werden damit der
Schreibschutz angezeigt wird und eventuelle Fehler behandelt werden?
Danke im voraus
Peter
Sub DateiZustand()
Dim Pfad As String, _
iOpen As Byte
Pfad = "D:\Data\AbtA\NutzerB\GrundB\GrunddatenB.xls"
iOpen = DateiIstFrei(Pfad)
Select Case iOpen
Case 0
MsgBox "Datei " & Pfad & " ist frei !"
Case 1
MsgBox "Datei " & Pfad & " ist geöffnet !"
Case 2
MsgBox "Datei " & Pfad & " wurde nicht gefunden !"
End Select
End Sub
Function DateiIstFrei(sDateiname As String) As Byte
If Dir(sDateiname) = "" Then
DateiIstFrei = 2
Else
On Error GoTo ERRORHANDLER
Open sDateiname For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then DateiIstFrei = 1
End Function