Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подавить сообщение об изменениях / 12 сообщений из 12, страница 1 из 1
07.05.2015, 13:23
    #38953505
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
На какое событие надо применить макрос с
Код: vbnet
1.
DisplayAlerts = False

чтобы не появлялось сообщения?
...
Рейтинг: 0 / 0
07.05.2015, 13:33
    #38953521
Surrogate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
1234_5678,

ни на какое событие DisplayAlerts это методом объекта Application
Код: vbnet
1.
Application.DisplayAlerts = False
...
Рейтинг: 0 / 0
07.05.2015, 13:55
    #38953557
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
Surrogate1234_5678,

ни на какое событие DisplayAlerts это методом объекта Application
Код: vbnet
1.
Application.DisplayAlerts = False

это то я знаю. и если такой макрос
Код: vbnet
1.
2.
Application.DisplayAlerts = False
Application.Quit

повесить на кнопку, то книга закрывается без вопроса о сохранении.
А вот как без кнопки обойтись?
...
Рейтинг: 0 / 0
07.05.2015, 13:59
    #38953569
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
1234_5678,

Приложение офиса нам предстоит угадать?
...
Рейтинг: 0 / 0
07.05.2015, 14:03
    #38953576
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
Excel
...
Рейтинг: 0 / 0
07.05.2015, 14:24
    #38953610
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
Event WorkbookBeforeClose(Wb As Workbook, Cancel As Boolean)
Member of Excel.Application
...
Рейтинг: 0 / 0
07.05.2015, 14:29
    #38953615
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
1234_5678,

А не проще закрывать книгу принудительно, указывая напрямую: сохранять или нет? Не полагаясь на действие по умолчанию?
Код: vbnet
1.
2.
Workbooks("Книга1.xlsx").Close False'закрываем без сохранения
Workbooks("Книга1.xlsx").Close True'закрываем с сохранением
...
Рейтинг: 0 / 0
07.05.2015, 14:30
    #38953617
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
Код: vbnet
1.
2.
3.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
End Sub

закрываю файл...и..."сохранить изменения...?"
...
Рейтинг: 0 / 0
07.05.2015, 14:34
    #38953625
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
авторА не проще закрывать книгу принудительно?не хотелось бы городить лишнюю кнопку, да и всё-равно они норовят закрывать "крестиком"
...
Рейтинг: 0 / 0
07.05.2015, 14:51
    #38953647
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
1234_5678
Код: vbnet
1.
2.
3.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
End Sub


закрываю файл...и..."сохранить изменения...?"попробуйте ThisWorkbook.Saved = True
...
Рейтинг: 0 / 0
07.05.2015, 15:34
    #38953708
1234_5678
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
спасибо! получилось!
...
Рейтинг: 0 / 0
07.05.2015, 15:44
    #38953729
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подавить сообщение об изменениях
1234_5678всё-равно они норовят закрывать "крестиком"Так Вы не давайте им крестиком закрывать. Кому надо - сохранит ведь, так? Цель-то вообще какая? Не дать сохранить книгу вручную или что?
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подавить сообщение об изменениях / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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