Public Const lngEng As String * 8 = "00000409"
Public Const lngRus As String * 8 = "00000419"
Public Const lngUkr As String * 8 = "00000422"
Public Const KLF_ACTIVATE = &H1
Public Const KLF_REORDER = &H8
Public Const KLF_SUBSTITUTE_OK = &H2
Public Const KLF_UNLOADPREVIOUS = &H4

' Óñòàíîâèòü ðàñêëàäêó
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
' Ïîëó÷èòü òåêóùóþ ðàñêëàäêó
Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
'===============================


Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Variant
Select Case Target.Column
Case 1, 14 To 16, Is > 20
R = LoadKeyboardLayout(lngEng, KLF_ACTIVATE)
Case Else
R = LoadKeyboardLayout(lngRus, KLF_ACTIVATE)
End Select
End Sub