Suppress Worksheet_Activate event

[tiredofit]

My workbook contains Sheet1 and Sheet2.

The code in Sheet1 is as follows:

Option Explicit

Private Sub Worksheet_Activate()

    MsgBox "hi"
 
End Sub

and in Sheet2:

Option Explicit

Private Sub Worksheet_Deactivate()

    Application.EnableEvents = False
 
    Me.Activate
 
    Application.EnableEvents = True
 
End Sub

I am trying to prevent users moving away from Sheet2.

When I'm on Sheet2, I click on Sheet1 and the Worksheet_Deactivate kicks off.

When Me.Activate is run, Sheet2 is active.

After Application.EnableEvents = True is run, Sub Worksheet_Activate on Sheet1 gets trigged.

How can I prevent Worksheet_Activate from running?

Thanks

 

[RoryA]

Why do you have an Activate event in a sheet that is never supposed to be activated?

 

[tiredofit]

Why do you have an Activate event in a sheet that is never supposed to be activated?

The reason is Sheet2 needs to check for some conditions.

If the conditions are OK, then the user can navigate off it, otherwise, stay there.

I suppose I could add a public variable.

If the condition is met, then allow, otherwise prevent from leaving Sheet2.

In Sheet1, check for this variable's value?

 

[RoryA]

Yes, that should do it.

 

[tiredofit]

Yes, that should do it.

Thanks