ProtectDrawingObjects Property
True if shapes are protected. Read-only Boolean.
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