Сделать крестик неактивным - Microsoft Office Excel

Фатима2811 · 18.05.2014, 19:05

здравствуйте!
Подскажите, пожалуйста, можно ли средствами VBA сделать неактивной/невидимой кнопку Закрыть [Х] приложения Excel?
Заранее спасибо!

EducatedFool · 18.05.2014, 19:11

Да, можно, - средствами WinAPI
но ведь останется пункт меню Файл - Выход

а зачем это нужно?
может, есть другие способы решения задачи...

Фатима2811 · 18.05.2014, 19:19

Вообще крестик может быть и активным, нужно чтобы при закрытии проверялось определенное условие и если оно не выполнено то приложение осталось открытым. Проверка условия у меня уже написана, но я не знаю как заставить приложение оставаться открытым

EducatedFool · 18.05.2014, 20:25

ваше условие, наверное, распространяется не на весь Excel, а на конкретную книгу Excel?

надо-то пару строк кода добавить, модуль ЭтаКнига

Код:

' автоматически срабатывает при закрытии книги
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ' если условие выполняется - отменяем закрытие файла
    If ВашеУсловие = True Then Cancel = True
End Sub

Фатима2811 · 18.05.2014, 21:11

Вы меня спасли! Огромное вам спасибо! даже не знаю как благодарить!

18.05.2014, 19:05	#1
Фатима2811 Пользователь Регистрация: 08.04.2014 Сообщений: 20	Сделать крестик неактивным здравствуйте! Подскажите, пожалуйста, можно ли средствами VBA сделать неактивной/невидимой кнопку Закрыть [Х] приложения Excel? Заранее спасибо!

18.05.2014, 19:11	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Да, можно, - средствами WinAPI но ведь останется пункт меню Файл - Выход а зачем это нужно? может, есть другие способы решения задачи... __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

18.05.2014, 20:25	#4
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	ваше условие, наверное, распространяется не на весь Excel, а на конкретную книгу Excel? надо-то пару строк кода добавить, модуль ЭтаКнига Код: `' автоматически срабатывает при закрытии книги Private Sub Workbook_BeforeClose(Cancel As Boolean) ' если условие выполняется - отменяем закрытие файла If ВашеУсловие = True Then Cancel = True End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Крестик закрытия программы	skanku	C++ Builder	1	26.05.2012 08:12
Нарисовать крестик	egorzenit	Общие вопросы Delphi	3	03.01.2012 00:38
Работа с неактивным листом	-Anton-	Microsoft Office Excel	5	27.06.2011 10:56
Вызывающее окно становится неактивным	DennerV	Win Api	1	01.03.2011 09:44
Рисуем крестик (Delphi 7)	alxd	Помощь студентам	4	09.09.2009 17:46

18.05.2014, 19:19	#3
Фатима2811 Пользователь Регистрация: 08.04.2014 Сообщений: 20	Вообще крестик может быть и активным, нужно чтобы при закрытии проверялось определенное условие и если оно не выполнено то приложение осталось открытым. Проверка условия у меня уже написана, но я не знаю как заставить приложение оставаться открытым

18.05.2014, 21:11	#5
Фатима2811 Пользователь Регистрация: 08.04.2014 Сообщений: 20	Вы меня спасли! Огромное вам спасибо! даже не знаю как благодарить!