Turn off an Initialized Class

[ilcaa72]

hello, i have an this sub that initializes a Class event that runs code on any change of the selection. I wanted to assign a Macro button to "turn off" the event.



Whats the proper VBA to 'de-initialize' the event? thanks

Sub LoadMonitor()
    Set selMonitor = New Class1
    MsgBox "Selection Change On"
End Sub


'stored in Class Module
Option Explicit
Private WithEvents mWordApp As Word.Application

Private Sub Class_Initialize()
    Set mWordApp = Word.Application
End Sub

Private Sub mWordApp_WindowSelectionChange(ByVal Sel As Selection)
'code here for selection change

[macropod]

Originally Posted by ilcaa72

hello, i have an this sub that initializes a Class event that runs code on any change of the selection. I wanted to assign a Macro button to "turn off" the event.

Whats the proper VBA to 'de-initialize' the event?

There is no facility to do that. Either put your event code into a template that applies only to documents based on that template - so it doesn't affect documents based on other templates - or add some error trapping to ensure the event exits unless the document or selection conforms to certain specifications.

[ilcaa72]

Thanks Paul, I Initialize this Selection event with a macro button, and based on what I select the code provides me various options to execute on certain sentences. The issue isnt about not having it run in other docs, because I can control when it is turned on. The issue is once it is turn on

Private Sub mWordApp_WindowSelectionChange(ByVal Sel As Selection)

I would like to turn it off so when i select it doesnt execute the code anymore while i am still in the document.

Right now i have to go into VBE and press the stop button on the debugger. I would like to add another button in my toolbar which I was hoping would "unload" or "terminate" the selection Event.

Am i stuck with going into VBE to turn this Event WindowSelectionChange manually off everytime i dont want it effecting my selection?

thanks again

[macropod]

OK, but you could have some additional code to conditionally enable/disable the WindowSelectionChange event. For example, in your normal code module:

Public bMon As Boolean

Sub LoadMonitor()
    Set selMonitor = New Class1
    Call EnableMonitor
End Sub

Sub EnableMonitor()
    bMon = True
    MsgBox "Selection Change On"
End Sub

Sub DisableLoadMonitor()
    bMon = False
    MsgBox "Selection Change Off"
End Sub

This both initiates and enables the WindowSelectionChange event and allows you to conditionally enable/disable it.

Then all you need do is add a single line to the WindowSelectionChange sub:

Private Sub mWordApp_WindowSelectionChange(ByVal Sel As Selection)
If bMon = False Then Exit Sub
'code here for selection change