Sub Example_ReadOnly()
    ' Этот пример показывает файл текущего рисунка доступен только для чтения или нет
    
    If ThisDrawing.ReadOnly Then
        MsgBox "Файл текущего рисунка доступен только для чтения.", , "ReadOnly Пример"
    Else
        MsgBox "Файл текущего рисунка - чтение - запись.", , "ReadOnly Пример"
    End If
    
End Sub