Workbook.ReadOnly (Excel)

Devuelve True si el objeto se ha abierto como de sólo lectura. Boolean de solo lectura.

Dim booReadOnly As Boolean
booReadOnly = ActiveWorkbook.ReadOnly