Userform: Enable a disabled checkbox by clicking it?

[Grummet]

Hi all,

Situation: A checkbox on a userform is set to .Value = True and .Enabled = False.

My Question: Is there a way to click the disabled checkbox and have it set itself back to .Enabled = True and also changing the Value back to False?

I do not want to re-enable it through clicking another button/checkbox on the form. I know it's silly, but the main reason I want the checkbox disabled in the first place is for the way it looks.

Thanks!

Grummet

 

[wigi]

No, if Enabled = False, you cannot click on it.

 

[Grummet]

No, if Enabled = False, you cannot click on it.

I figured that was the case, as it defeats the purpose of it being disabled, but I thought I would ask anyways!

Thanks

 

[RoryA]

Since the mouse click is actually handled by the Userform in that case, you could use something like this:

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.CheckBox1
        If .Enabled = False Then
        If X > .Left And X < .Left + .Width Then
            If Y > .Top And Y < .Top + .Height Then
                .Enabled = True
                .Value = False
            End If
        End If
        End If
    End With
End Sub

 

[Grummet]

Since the mouse click is actually handled by the Userform in that case, you could use something like this:

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.CheckBox1
        If .Enabled = False Then
        If X > .Left And X < .Left + .Width Then
            If Y > .Top And Y < .Top + .Height Then
                .Enabled = True
                .Value = False
            End If
        End If
        End If
    End With
End Sub

Rory, this is excellent! It works flawlessly. I did not know about the MouseUp action, this is good to know for the future .

Thank you!