ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Куда вставить Application.Quit для закрытия Excel
18 сообщений из 18, страница 1 из 1
Куда вставить Application.Quit для закрытия Excel
    #34075947
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Добрый день,

Мне необходимо чтобы при закрытии книги не выводилось сообщение о сохранении изменений.
Вставил следующий код:
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Me.Close SaveChanges:=False
End Sub
Теперь при нажатии на кнопку Close (крестик) книга закрывается, но не закрывается само приложение.
Куда нужно вставить
Код: plaintext
Application.Quit
, чтобы вместе с книгой закрывался и сам Excel.
...
Рейтинг: 0 / 0
24.10.2006, 10:04:46
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076011
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
До
Код: plaintext
 Application.DisplayAlerts = False
после
Код: plaintext
Application.DisplayAlerts = True
...
Рейтинг: 0 / 0
24.10.2006, 10:19:47
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076036
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
А куда вставить Application.DisplayAlerts = False ?

Мне нужно чтобы при нажатии на крестик, закрывалось все !
...
Рейтинг: 0 / 0
24.10.2006, 10:26:32
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076076
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False  
Me.Close SaveChanges:=False
Application.DisplayAlerts = True
Application.Quit
End Sub
...
Рейтинг: 0 / 0
24.10.2006, 10:37:56
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076108
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Вставь туда же, где ты закрываешь книгу. Если будет окрыта только одна книга, то можно обойтись без DisplayAlerts.

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Workbook_BeforeClose( _
  Cancel As Boolean)
    Application.DisplayAlerts = False
    ThisWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
    Application.Quit
End Sub
...
Рейтинг: 0 / 0
24.10.2006, 10:44:19
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076110
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Не помогает!

Книга закрывается, приложение - нет!
...
Рейтинг: 0 / 0
24.10.2006, 10:44:43
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076158
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
blacksunНе помогает!

Книга закрывается, приложение - нет!
Вы где расположили макрос?
Он должен находиться в Microsoft Excel Object - Эта книга.
У меня приложение закрывается вместе с книгой.
...
Рейтинг: 0 / 0
24.10.2006, 10:57:47
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076180
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Там и расположил. Но приложение не закрывается!
...
Рейтинг: 0 / 0
24.10.2006, 11:01:19
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076182
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Закрывается! пардон!

Но если нажать на второй сверху крестик!
...
Рейтинг: 0 / 0
24.10.2006, 11:02:01
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076212
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Трудно сказать, в чем именно у вас загвоздка. Нужно сесть за вашу машину, чтобы дать точный ответ. Пока попробуйте прикрепить ваш файл к сообщению, чтобы желающие могли его протестировать.
...
Рейтинг: 0 / 0
24.10.2006, 11:09:27
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076228
Глупышка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глупышка
Гость
Случайно влезла в ваше обуждение, простите уж очень интересно... А немогли бы вы выложить макрос который выходит из Exel без сохранения... Буду очень благодарна.
P/S Собственно за этим сюда и пришла.
...
Рейтинг: 0 / 0
24.10.2006, 11:11:15
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076261
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Вот этот макрос:
...
Рейтинг: 0 / 0
24.10.2006, 11:18:42
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076304
Глупышка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глупышка
Гость
непоняла, пишет ошибку компилирования, и вид документа можно выложить стандартный, чтоб я что-нибудь ввела нажала кнопку он закрылся, затем открыла а изменений небыло. Пожалуйста...
...
Рейтинг: 0 / 0
24.10.2006, 11:28:13
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076380
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Вы что, ошибки не читаете?

ConsolidateIT - функция или процедура не определена. На кнопке у вас висит вызов процедуры, которой нет в книге.

Закомментируйте вызов этой процедуры и все будет работать, как было описано и, как нужно вам.
...
Рейтинг: 0 / 0
24.10.2006, 11:47:58
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076447
blacksun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blacksun
Гость
Не трогайте пользовательскую кнопку. Все равно весь код из проекта удален!
Закрытие без сохранения должно происходить при щелчке мыши на крестике окна Приложения. Что и происходит.
...
Рейтинг: 0 / 0
24.10.2006, 12:02:02
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076661
Злойурод
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Злойурод
Гость
Нече он незакрывает приложение продолжает работать
...
Рейтинг: 0 / 0
24.10.2006, 12:52:27
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076691
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SirFisher
Гость
Данный код закрывает приложение в том случае, если открыт только файл, содержищий код. В противном случае - приложение не закрывается. Если существует необходимость закрывать приложение и все файлы, открытые в нем, надо немного изменить код.
...
Рейтинг: 0 / 0
24.10.2006, 12:57:47
| Ответить | Цитировать | Написать  
Куда вставить Application.Quit для закрытия Excel
    #34076702
Злойурод
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Злойурод
Гость
Меньше разговора больше дела! Выкладывай документ где это все работает.
...
Рейтинг: 0 / 0
24.10.2006, 12:59:31
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Куда вставить Application.Quit для закрытия Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34076180&tid=2184085]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 236ms
total:  387ms
созд. / загр.: 387ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]