Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
UserForm - переход между рабочими книгами, когда данное окно открыто/активно
 
Уважаемые специалисты, добрый день!

Подскажите , пожалуйста, как при активном окне UserForm , можно переходить на другие рабочие книги или листы?
 
отключите модальный режим окна в свойствах Userform (vbModless = false)
 
Код
UserForm1.Show 0
Загружайте форму так.
 
У UserForm есть свойство "ShowModal", сделайте "False".
 
Сделал, работает, но теперь  не могу закрыть UserForm.
помогает только если я завершаю процесс экселя.
В чем может быть причина?
 
Модальность/немодальность не должны влиять на закрытие формы. Разговор про "крестик"? Может запрет события?
 
Предлагаю следующее решение (которое потребует создания отдельной кнопки, для закрытия UserForm, при этом, закрытие UserForm через "крестик" будет недоступно").
Код
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
  '     MsgBox "Используйте кнопку 'выйти' чтобы закрыть форму размещения чего-то там."
        Cancel = True
    End If
End Sub

+ добавить кнопку на Userform, которая будет использоваться в качестве кнопки выхода / завершения работы и повесить следующий код на событие "click":
Код
Private Sub CommandButton1_Click() -- ваша кнопка
Unload Me

'ThisWorkbook.Save 'опционально

End Sub
Изменено: Astroid1 - 20 Фев 2017 16:34:59
Страницы: 1
Читают тему (гостей: 1)
Наверх