Workbook.ReadOnly (Excel)

Gibt True zurück, wenn das Objekt schreibgeschützt geöffnet wurde.

Dim booReadOnly As Boolean
booReadOnly = ActiveWorkbook.ReadOnly