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

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

0

Отмена закрытия формы пользователем:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub

Изменять размеры чего - формы? - каким образом?

0

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

0

Этим методом (применяются API-функции) владеет Comanche
http://relib.com/forums/topic.asp?pg=100&id=807745
У меня использовать его пример не получилось: наверное,
не все аргументы передавал правильно.
Советую допросить его (Comanche) с пристрастием

Разве на VBA-форме присутствует (по умолчанию) кнопка, клик по
которой изменяет размеры формы?
На всякий случай посмотри здесь:
http://relib.com/forums/topic.asp?id=823274

0

действительно по умолчанию нету
спасибо

0

посмотри

http://codevb.narod.ru/form_11.html
http://codevb.narod.ru/form_12.html

оно?

0

Дело в том, что вышеприведённые два примера (как и мой из другого топика) - для форм VB, а не VBA. Формы VBA не имеют свойства hWnd. И даже не имеют свойства hDC, по которому можно было бы восстановить хэндл. Отсюда и невозможность использовать вышеприведённые примеры 'в лоб'.

Однако, Spy++ покажет вам, что у userform'ы ЕСТЬ ХЭНДЛ! Удивлены? - претензии к Майкрософту ) Как его получить программно? - этот же Spy++ покажет вам, что userform'а - это окно класса 'ThunderDFrame'.

Значит, ваша задача перебором (через API FindWindow) найти окно с заданным классом и (!) с заданным заголовком (ведь вам же известен UserForm.Caption, не так ли?).

Пардон... окно userform'ы - это 'ребёнок' главного окна Экселя, а не 'top-level window'. Поэтому FindWindow не пойдёт: вместо неё надо использовать FindWindowEx, которая будет перебирать всех 'детей' заданного окна. Ну а 'заданным окном' тут должно быть главное окно Экселя. Как получить его хэндл? - наверное, в этом случае как раз через FindWindow.

PS: А разве у userform'ы нету свойства ControlBox, которое можно просто поставить в False, чтобы скрыть 'крестик'?

что-то я такого у userform не видел

0

Ну тогда только через FindWindow(Ex). Примеры есть в API Guide.

PPS: форма нормально ищется через FindWindow - смотри ответ на другой твой вопрос. Т.е. FindWindowEx не понадобилась: юзерформа - не есть 'child window' для Экселя, она есть нормальное 'top-level window', как выяснилось.