In diesem Beispiel wird ein Meldungsfeld angezeigt, wenn der Inhalt von Sheet1 geschützt ist.
If Worksheets("Sheet1").ProtectContents = True Then MsgBox "The contents of Sheet1 are protected." End If