Set application key in Workbook Open event and BeforeCloseEvent : Workbook Event « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Workbook Event

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








Related examples in the same category

1.If you want to prevent users from printing only particular sheets in your workbook, use this similar code instead:
2.Preventing Users from Inserting More Worksheets
3.If you want Excel to stop prompting you to save changes you didn't make
4.Before Save event
5.To link that tab's command bar to a right-click in any cell, enter the following code in the private module of ThisWorkbook:
6.Pass value between events
7.Workbook activation events
8.minimizes the workbook's window:
9.Workbook_BeforePrint
10.use the BeforePrint event to add information to a header or footer before the sheet is printed
11.BeforeClose event is used to delete a custom menu
12.create your own Save dialog in the event:
13.Workbook open event
14.Workbook Events Open: enable custom toolbar
15.procedure is executed when the workbook is closed
16.Workbook_SheetSelectionChange
17.The BeforeClose event for a workbook
18.The BeforeSave event for a workbook
19.Activate and deactivate events in a workbook
20.Cancel Close action based on the A1 value
21.only allow the workbook to close if the figure in A1 is between 500 and 600:
22.If you want to make sure that all changes are saved when the workbook closes
23.to discard any changes to the workbook