Workbook.ReadOnly (Excel)

Returns True if the object has been opened as read-only.

Dim booReadOnly As Boolean
booReadOnly = ActiveWorkbook.ReadOnly