Workbook.ReadOnly (Excel)

Retorna True se o objeto tiver sido aberto como somente leitura. Boolean somente leitura.

Dim booReadOnly As Boolean
booReadOnly = ActiveWorkbook.ReadOnly