Предлагаю следующее решение (которое потребует создания отдельной кнопки, для закрытия 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
|