بررسی باز بودن فایل اکسل توسط VBA

Function IsWorkBookOpen(FileName As String)
                   Dim ff As Long, ErrNo As Long
               
                   On Error Resume Next
                   ff = FreeFile()
                   Open FileName For Input Lock Read As #ff
                   Close ff
                   ErrNo = Err
                   On Error GoTo 0
               
                   Select Case ErrNo
                   Case 0:    IsWorkBookOpen = False
                   Case 70:   IsWorkBookOpen = True
                   Case Else: Error ErrNo
                   End Select
               End Function