Как сделать, чтобы форма не закрылась?

[Ципихович Эндрю]

Здравствуйте, как известно:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

QueryClose - запрос при закрытии формы, но ведь форма закроется
А как сделать если не пошло по моему сценарию, чтобы форма не закрылась?

[Казанский]

Что известно? Попробуй

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = 1
End Sub

[Пименов Александр]

Я думаю что можно сделать через оператор выполнения условия:

If Ваше условие Then
-----------------
Else
Exit Sub
End If

[Ципихович Эндрю]

>Cancel = 1
То что надо, Окейно, спасибо!!!
>If Ваше условие Then
>-----------------
>Else
>Exit Sub
>End If
Не пробовал, но верится с трудом, чтобы это проканало

[Ципихович Эндрю]

не понял смысл такой, на форме в комбобоксе две строки
если в комбобоксе на форме ничего не выбрали делаем сообщение и затем

Cancel = 1

то есть форма не пропадает, но затем в комбобоксе уже четыре записи, то есть повторение, две строки те, что были и две добавились, видимо после этого

Cancel = 1

идёт инициализация, но я там добавил вверху

Me.ComboBox1.Clear

не помогло, как быть??

[Ципихович Эндрю]

разобрался!!