Option Explicit
'==============================================================================
' Paste this into the "ThisWorkbook" module (Alt+F11 > double-click ThisWorkbook)
'==============================================================================

Private Sub Workbook_Open()
    On Error Resume Next

    ' keep the scan sheet usable by macros even when it is protected
    With ThisWorkbook.Worksheets(SH_SCAN)
        If .ProtectContents Then .Protect UserInterfaceOnly:=True, DrawingObjects:=False
        .Activate
        .Range(CELL_EMP).Select
    End With

    Application.OnKey "^+C", "ClearEmployee"           ' Ctrl+Shift+C
    Application.OnKey "^+R", "RefreshDashboard"        ' Ctrl+Shift+R
    Application.OnKey "^+T", "ForceTransfer"           ' Ctrl+Shift+T
    Application.OnKey "^+E", "EndOfShiftReport"        ' Ctrl+Shift+E

    RefreshRecent
    RefreshDashboard
    Banner "READY  -  SCAN A BADGE", "", "GREY"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnKey "^+C"
    Application.OnKey "^+R"
    Application.OnKey "^+T"
    Application.OnKey "^+E"
End Sub