Форум по VBA и MS Office

Как узнать с помощью макроса: открыт документ в режиме "только для чтения" или нет?

Sub Макрос()
    If ActiveDocument.ReadOnly = True Then
        MsgBox "Документ открыт в режиме ""только для чтения"".", vbInformation
    End If
End Sub

спасибо