Disable ESC to exit full screen mode

[NDMDRB]

Hello everyone,
I have below macro to view the workbook full screen, i'm just wondering if there is any way to not allow the user to exit full screen using "ESC", unless he use another macro to exit the full screen mode

Sub FullScreen_All()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
End With
Next ws
For Each ws In ActiveWorkbook.Worksheets
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Next ws
End Sub

 

[Logit]

.
Paste this code into a Routine Module:

[COLOR=#000000]Sub NoChange()[/COLOR]
[COLOR=#000000]i = 0 ' does nothing, used by NoEsc macro[/COLOR]
[COLOR=#000000]End Sub[/COLOR]
[COLOR=#000000][FONT='inherit']
Sub NoEsc()
Application.OnKey "{ESC}", "NoChange"
' Goes to procedure NoChange if escape key hit
End Sub[/FONT][/COLOR]
[COLOR=#000000][FONT='inherit']
Sub YesEsc()
Application.OnKey "{ESC}"
' Turns on the keyboard escape key.
End Sub[/FONT][/COLOR]

In the ThisWorkbook module paste this code:

Private Sub Workbook_Open()
     Call NoEsc
End Sub
     



Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Call [COLOR=#000000][FONT='inherit']YesEsc[/FONT][/COLOR]
End Sub

 

[NDMDRB]

Thank you Logit, appreciate that

 

[Logit]

You're welcome. Hope it works out for you.

 

[Domenic]

Also, you can dispense with the procedure NoChange by setting the argument for Procedure to an empty string ("")...

[COLOR=#000000][FONT='inherit']Sub NoEsc()
    Application.OnKey "{ESC}", ""
End Sub[/FONT][/COLOR]