Где ошибка?

[Юра154]

Не переключает раскладку на украинскую (с росс все норм, а вот на укр не меняет, где может быть ошибка)?

Private Declare Function ActivateKeyboardLayout _
Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721,
kb_lay_ua As Long = 69338146
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column    ' comments
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column    ' comments
        
        Case 6:    ' comments
            ВключитьАнглийскуюРаскладку
        Case 7:    ' comments
            ВключитьУкраинскуюРаскладку
        Case Else: ' else
    
    End Select
End Sub
 
Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub 
Sub ВключитьУкраинскуюРаскладку()
    ' Переключить на украинский язык
    x = ActivateKeyboardLayout&(kb_lay_ua, 0)
End Sub

[IgorGO]

вместо этого:

Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721,
kb_lay_ua As Long = 69338146
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column ' comments
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column ' comments

напишите так:

Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721, kb_lay_ua As Long = 69338146
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column ' comments

[gling]

Оказывается все не просто, по этому удалил запись.

[Юра154]

Sub ВключитьАнглийскуюРаскладку() - - - - - данная строка выделена желтым и ругается о ошибке
' Переключить на английский язык
x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub
Compile error: Sub or function not defined

[IgorGO]

Юра,
приведенные строки вполне корректны, но что написано над ними...
ни кто, кроме Вас не знает

[Юра154]

Private Declare Function ActivateKeyboardLayout _
Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721, kb_lay_ua As Long = 69338146
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column ' comments
        Case 6:    ' @mail
            ВключитьАнглийскуюРаскладку
        Case 7:    ' смена клавиатуры на укр
            ВключитьУкраинскуюРаскладку
        Case Else: ' ничего не делаем (оставляем текущую раскладку)
    End Select
End Sub
 
Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub
Sub ВключитьУкраинскуюРаскладку()
    ' Переключить на укр язык
    x = ActivateKeyboardLayout&(kb_lay_ua, 0)
End Sub

[IgorGO]

на вид все нормально.

теперь файл, где это не работает!
и описание, в какой ситуации что не сработало

[Юра154]

Всем спасибо, проблема решилась сменой клавиатуры украинской расширенной, на украинскую, видимо там другой код клавиатуры, которого я не не нашел в интернете.