ReadOnlyRecommended Property Example

This example displays a message if the active workbook is saved as read-only recommended.

If ActiveWorkbook.ReadOnlyRecommended = True Then 
    MsgBox "This workbook is saved as read-only recommended"
End If