Друзья, нет идей?

Чтобы изменить выбранное значение в ComboBox на "Документы" при неправильном вводе пароля, вам нужно будет использовать метод, который обновляет значение ComboBox в Ribbon после проверки пароля. В VBA это можно сделать с помощью метода Invalidate для обновления интерфейса.Вот как можно модифицировать ваш код:Шаг 1: Изменение процедуры GetTextДобавьте логику для изменения значения ComboBox, если пароль неверный или пустой. Для этого вам нужно будет использовать метод IRibbonUI.Invalidate для перерисовки Ribbon.



'-----------Элемент comboBox
Public Sub GetText(ComboBox As IRibbonControl, Text As String)
   Dim ribbon As IRibbonUI
   Set ribbon = ComboBox.Ribbon

   If Text <> "" Then
       If Text = "Документы" Then
           ' Запускаем макрос работы с "документами"
       Else
           ' Запрашиваем пароль
           Dim password As String
           password = InputBox("Введите пароль для доступа к разделу:") ' Запрос пароля

           If password = "ваш_пароль" Then ' Замените "ваш_пароль" на реальный пароль
               ' Запускаем макрос в зависимости от выбранного раздела
               If Text = "Управление" Then
                   ' Код для работы с "Управлением"
               ElseIf Text = "Рассылка" Then
                   ' Код для работы с "Рассылкой"
               End If
           Else
               MsgBox "Неверный пароль. Возвращаемся к документам."
               ' Меняем значение ComboBox на "Документы"
               ribbon.InvalidateControl "MyCombobox"
           End If
       End If
   End If
End Sub

'-----------Обновление ComboBox при перерисовке
Public Sub OnLoad(ribbon As IRibbonUI)
   Set gRibbon = ribbon ' Сохраняем объект Ribbon для дальнейшего использования
End Sub

'-----------Код для обновления значения ComboBox
Public Sub UpdateComboBox()
   gRibbon.InvalidateControl "MyCombobox"
End Sub

'-----------Функция для получения текста из ComboBox
Public Function GetComboBoxItems(control As IRibbonControl) As String()
   Dim items(1 To 3) As String
   items(1) = "Документы"
   items(2) = "Управление"
   items(3) = "Рассылка"
   GetComboBoxItems = items
End Function



Шаг 2: Обновление интерфейса RibbonТеперь вам нужно добавить код, который будет обновлять значение ComboBox при вызове InvalidateControl. Для этого создайте функцию, которая будет возвращать текущее состояние ComboBox:

Public Function GetComboBoxItems(control As IRibbonControl) As String()
   Dim items(1 To 3) As String
   
   ' Здесь вы можете задать текущее состояние выбранного элемента.
   ' Например, если был введен неверный пароль, то устанавливаем "Документы".
   
   If неверный_пароль Then
       items(1) = "Документы"  ' Устанавливаем по умолчанию на Документы.
       items(2) = "Управление"
       items(3) = "Рассылка"
   Else
       items(1) = "Документы"
       items(2) = "Управление"
       items(3) = "Рассылка"
   End If
   
   GetComboBoxItems = items
End Function

Шаг 3: Обновление состояния при неверном паролеКогда вводится неверный пароль, вызывайте UpdateComboBox, чтобы обновить состояние ComboBox:

Else
   MsgBox "Неверный пароль. Возвращаемся к документам."
   UpdateComboBox  ' Обновляем состояние ComboBox.
End If

Теперь, когда пользователь вводит неверный пароль, значение ComboBox будет автоматически изменено на "Документы". Не забудьте заменить "ваш_пароль" на реальный пароль и настроить логику в зависимости от ваших требований.