Comments on: Disabling Events In Userforms

By: Chris Christianson

Chris Christianson — Tue, 19 Feb 2008 21:40:00 +0000

Excellent solution to a difficult problem. Thanks.

By: Paramasivan

Paramasivan — Wed, 14 Sep 2005 10:58:00 +0000

The code you have given is helpful for the listbox if you are making teh changes in other list box.

But it is not working fine if the changes are made within the same listbox.

I want to change the selection of the Listbox1 within the ListBox1_Click or ListBox1_Change.

By: Ian

Ian — Fri, 04 Mar 2005 10:49:00 +0000

Wonderfull – I’d been trying to deal with this for a while (in my case altering a listbox when the selection in the listbox is changed). Problem solved in 30 seconds…

By: Dick

Dick — Wed, 09 Jun 2004 14:59:00 +0000

Jamie: I’ve always hated how my method was backward. The extra coding is nothing compared to the extra thinking I have to do every time I use mine. Thanks.

By: Jamie Collins

Jamie Collins — Wed, 09 Jun 2004 11:54:00 +0000

I use a slightly different approach. I want my code to assume that events are enabled by default. I only disable events when I want to temporarily prevent an event from firing, e.g. when manipulating a control programmatically, after which events are re-enabled. Additionally, I always test whether events are enabled at the top of all event handlers. So:

Option Explicit

Dim mbEvents As Boolean

Private Sub UserForm_Initialize()
mbEvents = True
End Sub

Private Sub TextBox1_Change()
If Not mbEvents Then Exit Sub
mbEvents = False
TextBox2.Text = Me.TextBox1.Text
mbEvents = True
End Sub

Private Sub TextBox2_Change()
If Not mbEvents Then Exit Sub
MsgBox TextBox2.Text
End Sub

It requires a slightly more coding but I find it more intuitive because it follows Excel's Application.EnableEvents logic and avoids the 'converse boolean name' situation e.g.

If Not mbNotEnabled Then

'cos my brain is too simple!