Tjek om en Excel fil er åben

Her er en funktion lavet af Ole Erlandsen. Den tester om en given fil en i brug/åben.

Function FileAlreadyOpen(FullFileName As String) As Boolean
' returns True if FullFileName is currently in use by another process
' example: If FileAlreadyOpen("C:\FolderName\FileName.xls") Then...
Dim f As Integer
    f = FreeFile
    On Error Resume Next
    Open FullFileName For Binary Access Read Write Lock Read Write As #f
    Close #f
    ' If an error occurs, the document is currently open.
    If Err.Number <> 0 Then
        FileAlreadyOpen = True
        Err.Clear
        'MsgBox "Error #" & Str(Err.Number) & " - " & Err.Description
    Else
        FileAlreadyOpen = False
    End If
    On Error GoTo 0
End Function

Sub testForOpenFile()
Dim x As Boolean
x = FileAlreadyOpen("c:\lager.xls")
If x = True Then MsgBox "filen er i brug"
End Sub

Chrira - > kunne det bruges eller.....

Hej bak - har desværre ikke haft tid til at teste det endnu - men skal nok svare når jeg har haft tid.

Chrira