2. CommandButton disabled

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim objWs As Worksheet
Dim blnProtect As Boolean
blnProtect = CommandButton1.Caption = "Alle Blätter schützen"
blnProtect = CommandButton2.Caption = "Quartalstabelle kann gedruckt werden"
'blnProtect = CommandButton2.Enabled
Application.ScreenUpdating = False
For Each objWs In ThisWorkbook.Worksheets
If blnProtect Then
objWs.Protect
CommandButton1.BackColor = &HC0C0&
CommandButton2.BackColor = &HFF&
'    CommandButton2.disabled
Else
objWs.Unprotect
CommandButton1.BackColor = &HFF&
CommandButton2.BackColor = &HC0C0&
'    CommandButton2.Disabled
End If
Next
CommandButton1.Caption = IIf(blnProtect, "Alle Blätter entschützen", "Alle Blätter schützen")
CommandButton2.Caption = IIf(blnProtect, "Quartalstabelle kann NICHT gedruckt werden - ERST den  _
_
BS aufheben", "Quartalstabelle kann gedruckt werden")
Application.ScreenUpdating = True
End Sub

Nun versuche ich leider vergebens, abhängig von CB1 den CB2 zu disabeln - steht also CB1 auf "Alle Blätter entschützen" (der Blattschutz ist also aktiv), so soll sich zwar beim CB2 die Farbe u. die Beschriftung entsprechend ändern, doch zusätzlich soll der CB2 auch auf DISABLED gesetzt werden.
Wer kann mir helfen ?
MfG Dirk N.