In diesem Beispiel wird eine Meldung angezeigt, wenn die aktive Arbeitsmappe mit der Option Schreibschutz empfehlen gespeichert wird.
If ActiveWorkbook.ReadOnlyRecommended = True Then MsgBox "This workbook is saved as read-only recommended" End If