Excel vba close form escape key

' In the userform code (must also be command controls if any, 
' for example buttons, for Keypress event)
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 27 Then Unload Me
End Sub
' Or on at least one / all buttons:
button.Cancel = True
' Or if none add a button to the userform with:
With button
    .Height = 0
    .Width = 0
    .Cancel = True
End Width

Similar codes

1 vote238 views1 answer
Vbs run
VBA
1 vote246 views1 answer
Vba loop through files in folder
VBA
0 vote216 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote260 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote202 views1 answer
Vba code to open a file with login rights
VBA
4 votes228 views2 answers
Vba create folder if not exist
VBA
4 votes243 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote221 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote215 views1 answer
Do until vb.net
VBA
1 vote227 views1 answer
Change the first item in a queue vb.net
VBA