| Вопрос: Заблокировать кнопку X на форме(Excell) | Добавлено: 21.12.03 09:22 |
Автор вопроса:  starmen
|
| как можно Заблокировать кнопку X на форме(Excell) или сделать его недоступным как MsgBox-e |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 22.12.03 09:27 |
|
попробуй Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Const MF_BYPOSITION = &H400& Public Sub RemoveCloseMenu(frm As Form) Dim hSysMenu As Long hSysMenu = GetSystemMenu(frm.hwnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION) Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION) End Sub |
||
|
Номер ответа: 2 Автор ответа:  YuryL Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 24.12.03 19:12 |
|
А можно ли также заблокировать кнопку Х у окна в котором показывается лист Экселя? |
||
Страница: 1 |