Sub CellEnterFinish(keycode As String)
     On Error Resume Next
     Dim shift As Boolean
      
     shift = Left(keycode, 1) = "s" ' для поддержки заглавных букв в таких полях, как email, skype и т.п.
     If shift Then keycode = Mid(keycode, 2)
     strkey = CaseRanges(ChangeLang(Chr(keycode)))
     If shift Then strkey = UCase(strkey)
If ThisWorkbook.Name <> ActiveWorkbook.Name Then Exit Sub

Private Sub Workbook_Open()
     Hook
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Unhook
End Sub

Private Sub Workbook_Activate()
     Hook
End Sub
Private Sub Workbook_Deactivate()
     Unhook
End Sub

'------------------------------------------------------
Sub Hook()
     On Error Resume Next
     HookKeys HOOKED_KEYS, "CellEnterFinish"
     Application.OnKey "{BACKSPACE}", "RemovePrev"
     Application.OnKey "{ENTER}", "GoToNextField"
     Application.OnKey "~", "GoToNextField"
     Application.OnKey "{TAB}"
End Sub

Sub Unhook()
     UnHookKeys HOOKED_KEYS
     Application.OnKey "{BACKSPACE}"
     Application.OnKey "{ENTER}"
     Application.OnKey "~"
End Sub