Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Куда вставить Application.Quit для закрытия Excel / 18 сообщений из 18, страница 1 из 1
24.10.2006, 10:04:46
    #34075947
blacksun
blacksun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
Добрый день,

Мне необходимо чтобы при закрытии книги не выводилось сообщение о сохранении изменений.
Вставил следующий код:
Код: 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:19:47
    #34076011
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
До
Код: plaintext
 Application.DisplayAlerts = False
после
Код: plaintext
Application.DisplayAlerts = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:26:32
    #34076036
blacksun
blacksun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
А куда вставить Application.DisplayAlerts = False ?

Мне нужно чтобы при нажатии на крестик, закрывалось все !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:37:56
    #34076076
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
Код: 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:44:19
    #34076108
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
Вставь туда же, где ты закрываешь книгу. Если будет окрыта только одна книга, то можно обойтись без 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:43
    #34076110
blacksun
blacksun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куда вставить Application.Quit для закрытия Excel
Не помогает!

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

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

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

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

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


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