Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As LongPtr, _
ByVal flags As Long) As LongPtr

Const aklEnglishUS As LongPtr = &H4090409
Const aklHebrewIL As LongPtr = &HF03D040D
Const ColumnToForceEnglish As Integer = 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = ColumnToForceEnglish Then
        ActivateKeyboardLayout aklEnglishUS, 0
    Else
        ActivateKeyboardLayout aklHebrewIL, 0
    End If
End Sub

את ההשראה קיבלתי מכאן: https://stackoverflow.com/questions/449207/how-can-i-call-activatekeyboardlayout-from-64bit-windows-vista-using-vba