ESC key isn't working to deactivate this code

[KMH]

Good night,

I have this code in thisworkbook module and it works beautifully. How do I trigger the Workbook_Deactivate sub though? Pressing the ESC key doesn't work.

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
End Sub


Private Sub Workbook_Deactivate()
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[bobsan42]

It seems the Activate/Deactivate events are only triggered if focus changes between workbooks within the same Application instance.
Switching between applications does not trigger these events.
Read a bit here

Use this code in ThisWorkbook module to assist you:

Private Sub Workbook_Activate()
    Application.Speech.Speak "Workbook activated"
End Sub

Private Sub Workbook_Deactivate()
    Application.Speech.Speak "Deactivated"
End Sub