bin im Internet auf folgenden Code gestoßen. Dabei soll durch klicken einer Checkbox eine TextBox aktiviert werden oder eben gesperrt sein. Wenn es gesperrt ist, soll die TextBox grau hinterlegt sein, und beim aktiven weiß werden.
Leider funktioniert er bei mir nicht, obwohl meine Checkbox und TextBox genauso heißt wie im Code. Kann mir einer helfen, wie der Code heute aussehen müssste?
Private Sub CheckBox1_Click()
Select Case ActiveDocument.CheckBox1.Value
Case Is = False
With ActiveDocument.TextBox1
.Select
'flach
.SpecialEffect = 0
'grau
.BackColor = &HC0C0C0
.ForeColor = &HC0C0C0
'gesperrt
.Locked = True
End With
Case Is = True
With ActiveDocument.TextBox1
.Select
'vertieft
.SpecialEffect = 2
.BackColor = &HC0C0C0
'weiss
.BackColor = &HFFFFFF
.ForeColor = &H80000006
.Locked = False
End With
End Select
End Sub
Gruß Sören