Disable shapes when Workbook is protected VBA

[julhs]

I have several shapes on the worksheet that have macros assigned to them.
I want to specifically disable/deactivate those SHAPES while the sheet is PROTECTED.
Reason being is that at the moment when the sheet is PROTECTED (via VBA) and I then subsequently click on one of the shapes it causes the assigned Sub to not run/freeze/bug out.
So I thought the best approach would be to disable/deactivate those shapes while the Sheet is PROTECTED.
There are other "btn" shapes on the sheet, if they can be disable/deactivate on mass then it would avoid the need to name them individualy
But to date none of my attempts have worked.
This is my last failed attempt:

Sub ProtectSheet()
ActiveSheet.Protect ActiveSheet.Shapes("btnSelectTheSubToRun").ControlFormat.Enabled = False
End Sub

 

[mumps]

Change that line to:

ActiveSheet.Unprotect

 

[julhs]

Thanks Mumps
With your help I have it running.
Dropping the use of the “Call” event made far more sense as it still needed an “If MsgBox” in the Main Sub to EXIT that if the answer in the “Called” Sub was NO, so was overly convoluted/long winded.
The below is the final draft and works entirely within the Main Sub

> .. Main Sub beginning code here….
   If ActiveSheet.ProtectContents = True Then
   If MsgBox("The Sheet is PROTECTED Do you want to continue?", _
            vbQuestion + vbYesNo) = vbNo Then
     Exit Sub
  Else
     ActiveSheet.Unprotect
  End If
End If
> ..Main Sub code continues….

Really appreciate your help.
Julhs

 

[mumps]

You are very welcome.