Bom dia!!

Não entendi muito bem..

If ActiveWorkbook.ReadOnly Then ActiveWorkbook.Close False
End If

Ola Alexandre era isso mesmo. Pena que não funcionou como eu imaginava, mas muito obrigado, meu caro.

Abraço

Boa noite!!

Do que realmente precisava???
Leia:
http://support.microsoft.com/kb/153058

Att

Era isso mesmo Alexandre.

Coloquei a rotina no evento Workbook Open, e minha intenção era que se um segundo arquivo fosse aberto como leitura a pasta de trabalho "1" e "2" seriam fechadas, mas se fizer isso acaba travando. Mas valeu demais pela força cara.

Abraço