Workbook.ReadOnly (Excel)

Cette propriété a la valeur True si l'objet a été ouvert en lecture seule. Boolean (en lecture seule).

Dim booReadOnly As Boolean
booReadOnly = ActiveWorkbook.ReadOnly