2. CommandButton disabled
25.01.2008 19:32:00
Dirk
mit nachfolgendem Code steuere ich bisher 2 CommandButtons - Farbe und Caption.
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.