Hello all
Is there any way to check if a file is already open by another user before
trying to open it.

If "Filename is open" = true then
abort procedure
else
Workbooks.Open Filename....
end if

Thanks

Try this function:

Function FileIsOpen(strFile As String) As Boolean

Dim hFile As Long

On Error GoTo OpenError

hFile = FreeFile

Open strFile For Input Lock Read As #hFile
Close #hFile

Exit Function
OpenError:

FileIsOpen = Err.Number = 70

End Function


RBS


"Cresta" wrote in message
...
Hello all
Is there any way to check if a file is already open by another user before
trying to open it.

If "Filename is open" = true then
abort procedure
else
Workbooks.Open Filename....
end if

Thanks

Thanks
That worked a treat


"RB Smissaert" wrote:

Try this function:

Function FileIsOpen(strFile As String) As Boolean

Dim hFile As Long

On Error GoTo OpenError

hFile = FreeFile

Open strFile For Input Lock Read As #hFile
Close #hFile

Exit Function
OpenError:

FileIsOpen = Err.Number = 70

End Function


RBS


"Cresta" wrote in message
...
Hello all
Is there any way to check if a file is already open by another user before
trying to open it.

If "Filename is open" = true then
abort procedure
else
Workbooks.Open Filename....
end if

Thanks