powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / закрытие модальной формы закрывает все формы
4 сообщений из 4, страница 1 из 1
закрытие модальной формы закрывает все формы
    #33693450
dbf97
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
место действия - Ексел
суть действия - из немодальной userform запускается модальная userform. Все работает зашибись, но имеется маленький геморрой - ежели пользователь щелкает по крестику в верхнем правом углу модальной формы, то закрываются обе формы.
вопрос - как этого избежать и сделать так чтобы закрывалась тока модальная форма.
...
Рейтинг: 0 / 0
закрытие модальной формы закрывает все формы
    #33693559
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Какая версия. У меня 2000 с SP-3, никуда не пропадает.

Попробуй такой вариант; на событие модальной формы "Terminate", отображай немодальную форму.

Код: plaintext
1.
2.
Private Sub UserForm_Terminate()
    UserForm1.Show vbModeless
End Sub
...
Рейтинг: 0 / 0
закрытие модальной формы закрывает все формы
    #33693591
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
помести код в модальную форму
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "Эта кнопка не работает", vbCritical, "LeroyMerlin"
        Cancel = True
    End If
End Sub
...
Рейтинг: 0 / 0
закрытие модальной формы закрывает все формы
    #33693968
dbf97
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо vkodor, идея подошла
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / закрытие модальной формы закрывает все формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]