AntonariyHide
Show vbModal

Иначе никак.

Jah loves you.
Всё-таки можно. Хотя, по-моему, Hide:Show vbModal должно хватать на все случаи жизни

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private blnModal As Boolean
Private Sub CommandButton1_Click()
blnModal = Not blnModal
EnableWindow FindWindow("XLMAIN", Application.Caption), Abs(CInt(blnModal))
End Sub
Private Sub UserForm_Initialize()
EnableWindow FindWindow("XLMAIN", Application.Caption), Abs(CInt(blnModal))
End Sub

Игорь Горбонос
> Автор: vlth

И как этот код меняет модальность окна?

Из этого вопроса следует, что не меняет? - такое у меня было только при первичном нажатии на кнопку, и то не всегда (при Modal=False). Т.е. при инициализации формы, возможно, нужно пару раз переключить её модальность.

Игорь ГорбоносПроще сделать Hide/Show vbModal Странно Вы моё сообщение интерпретировали: я ведь то же самое сказал. А код приведён лишь в кач-ве примера.

Игорь Горбоноспри этом сама
форма должна быть открыта в режиме Modeless Прошу прощения, сразу не обратил внимания: это утверждение, как ни странно, неверно - модальность формы не влияет на работоспособность кода. Проверьте сами.

Игорь Горбонос, не кривые, а умелые
Мне удалось добиться только двух. Первая возникает при закрытии формы, если в процедуру инициализации добавить Me.Show vbModal. Вторая - при её открытии, если туда же прописать Me.Show vbModeless. В обоих случаях Excel не рушится. Во втором - форма загружается и продолжает работать.

1
---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '91':

Object variable or With block variable not set
---------------------------
ОК Справка
---------------------------

2
---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '400':

Form already displayed; can't show modally
---------------------------
ОК Справка
---------------------------

Если загружать форму с ShowModal, выставленным по умолчанию (хоть True, хоть False), то ошибки при работы с формой нет.

Зато это спокойно уживается с кодом на CommandButton1_Click()

Вот так.