Acredito que uma das dicas abaixo ajude :

Verificar se Pasta de Trabalho está Aberta
http://www.ambienteoffice.com.br/excel/ ... ta_aberta/

Código de macro para verificar se um arquivo já está aberto
http://support.microsoft.com/kb/291295/pt-br

Verificar se uma planilha esta aberta
http://excelsemlimites.wordpress.com/20 ... ilhaberta/

[]s

Como escrevo o fechamento da planilha aberta?

If IsFileOpen(caminhoExec & NomeCopia & ".xlsx") Then
        Fechar = MsgBox("No Endereço: " & Chr(13) & Chr(13) & caminhoExec & Chr(13) & Chr(13) & _
        "                O arquivo: " & Chr(13) & Chr(13) & NomeCopia & Chr(13) & Chr(13) & _
        "Deseja Fecha-lo?", vbExclamation + vbYesNo, "Atenção")
        If Fechar = vbYes Then
        Workbook.Close  NomeCopia & ".xlsx" ' SE ESCOLHER vbyes ;AQUI DÁ ERRO EM TEMPO DE EXECUÇÃO 424 , O OBJETO É OBRIGATORIO
        Else
            Exit Sub
         End If
         End If

Bom dia!!

Tente

workbooks("MeuArquivo").close savechanges:=false 

...........
.......

Workbooks("MeuArquivo.xls").Close False 

Muitississississimmoooooooooooooooooooooooooooo obrigado .
Deus lhe pague.