ProtectDrawingObjects Property Example

This example displays a message box if the shapes on Sheet1 are protected.

If Worksheets("Sheet1").ProtectDrawingObjects = True Then
    MsgBox "The shapes on Sheet1 are protected."
End If