Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Set application key in Workbook Open event and BeforeCloseEvent

Private Sub Workbook_Open()     Application.OnKey "{RIGHT}", "HighlightRight"     Application.OnKey "{LEFT}", "HighlightLeft"     Application.OnKey "{UP}", "HighlightUp"     Application.OnKey "{DOWN}", "HighlightDown"     Application.OnKey "{DEL}", "DisableDelete" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean)     Application.OnKey "{RIGHT}"     Application.OnKey "{LEFT}"     Application.OnKey "{UP}"     Application.OnKey "{DOWN}"     Application.OnKey "{DEL}" End Sub