boa tarde

tenho uma macro que busca um arquivo, abre e copia as informções que preciso para montar minha estatística.
mas se o arquivo estiver aberto por outra pessoa não consigo copiar as ifnormações.
como fazer com que ele abra o arquivo se o mesmo estiver aberto, mas como somente leitura, copia e fecha sem salvar.

Sub consolida()
Application.ScreenUpdating = False
    'Consolida informações da planilha dados de todos os técnicos
    Application.ScreenUpdating = False
    Application.StatusBar = "Importando Dados dos Técnicos"
    Dim lf, i, lfdados, lfcons As Integer
    Dim caminho, arquivo As String
    Dim rel As String
    Dim cons, dados
    rel = ThisWorkbook.Name
    Set cons = Sheets("consolidar")
    Set dados = Sheets("Dados")
    lf = cons.Cells(65000, 2).End(xlUp).Row
    For i = 2 To lf
        caminho = cons.Cells(i, 2).Value
        arquivo = cons.Cells(i, 3).Value
        Workbooks.Open caminho & "" & arquivo
        Sheets("Dados").Select
        lfdados = Sheets("Dados").Cells(65000, 3).End(xlUp).Row
        If lfdados > 1 Then
            Range("a2:k" & lfdados).Copy
            Windows(rel).Activate
            dados.Select
            lfcons = dados.Cells(65000, 3).End(xlUp).Row + 1
            Cells(lfcons, 1).Select
            ActiveCell.PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            Windows(arquivo).Activate
            ActiveWorkbook.Close False
            Windows(rel).Activate
            cons.Select
        Else
            ActiveWorkbook.Close False
            Windows(rel).Activate
        End If
    Next
    Set cons = Nothing
    Set dados = Nothing
   Call exclui_dup
   Application.ScreenUpdating = True

   End Sub