'Проверяем не открыт ли файл отчета. Если нет - открываем

If Not IsBookOpen(ReportName) Then
        Workbooks.Open (ReportPath & ReportName)
End If  

Function IsBookOpen(wbName As String) As Boolean
'эта Функция просматривает все открытые книги и если находит среди них книгу с указанным именем, то функция возвращает True.  
 
Dim wbBook As Workbook
    For Each wbBook In Workbooks
        If wbBook.Name <> ThisWorkbook.Name Then
            If Windows(wbBook.Name).Visible Then
                If wbBook.Name = wbName Then IsBookOpen = True: Exit For
            End If
        End If
    Next wbBook
End Function
 

On Error Resume Next
Dim ex As Excel.Application, exw As Worksheet, operator$, dt&, lr&, lc&, i&, ras&, lt&, s$, sum
Set ex = CreateObject("excel.application")
'ex.Visible = True
Dim t!
Application.DisplayAlerts = False
lp: t = Timer
Do
If Dir(endpath) <> "" Then Set exw = ex.Workbooks.Open(endpath).Worksheets(1)
Loop While (exw Is Nothing) And (t + 1) > Timer
If exw Is Nothing Then
 If MsgBox("общий файл занят или отсутствует доступ. Повторить обращение?", vbYesNo, "Attention,please!") = vbYes Then
 GoTo lp
 Else
 GoTo ex
 End If
Else
 With exw.Parent
 If .ReadOnly Then
 ex.DisplayAlerts = False
 .Close
 If MsgBox("общий файл занят или отсутствует доступ. Повторить обращение?", vbYesNo, "Attention,please!") = vbYes Then
 GoTo lp
 Else
 GoTo ex
 End If
 End If
 End With
End If