Как убрать сообщения excel

Хитрости »

2 Декабрь 2011              57709 просмотров

Как запретить сообщения?

Статья может показаться странной, но…Спрос на данную тему достаточно велик. Тем, кто программирует на VBA приходится делать разнообразные вещи, для выполнения которых используются вызовы стандартных Excel-вских команд и методов. Команды в свою очередь могут выдавать сообщения, которые совершенно не нужны при выполнении кода. Яркий пример — удаление листа из книги. При попытке удаления листа появляется запрос:

Такое предупреждение не может быть лишним с точки зрения ручного удаления листа — вдруг кнопка Удалить была нажата по ошибке. Но при выполнении кода подобные сообщения «стопорят» код и могут стать очень ощутимой помехой автоматизации процессов. К примеру ниже приведен код удаления листа:

Sub Del_Sheet()
    ActiveSheet.Delete
    MsgBox "Лист удален(или нет, смотря что Вы нажали)", vbInformation, "www.excel-vba.ru"
End Sub

Запустите его и увидите, что приходится нажимать «Да» в стандартном окне Excel, чтобы код продолжился и показал уже наше сообщение. Т.е. сначала пользователь увидит стандартное окно предупреждения Excel и пока не сделает выбор код дальше не пойдет и не покажет наше сообщение. Не совсем удобно, особенно когда надо обойти штук 10 таких сообщений(часто это бывает при работе в циклах). К тому же, если пользователь откажется от удаления — лист так и не будет удален. А это уже может быть очень критично для выполнения кода в дальнейшем.
Проблема устраняется очень просто:

Sub Del_Sheet()
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    MsgBox "Лист удален", vbInformation, "www.excel-vba.ru"
    Application.DisplayAlerts = True
End Sub

Команда Application.DisplayAlerts = False «подавляет» показ системных сообщений. Это касается практически всех сообщений Excel, даже тех, что появляются перед закрытием книги без сохранения. К чему я это специально уточняю? К тому, что следует помнить, что необходимо всегда возвращать значение данного свойства в True. Иначе может получиться так, что код Вы выполнили, никаких лишних сообщений не получили. Но значение не вернули. И тогда Вы рискуете вследствие случайного нажатия того же удаления листа, вместо привычного предупреждения просто лишиться листа со всеми данными. А попытавшись закрыть книгу без сохранения, чтобы заново открыть и вернуть лист — не увидеть стандартного вопроса: «Сохранить изменения в книге?» — книга будет закрыта и возможно даже сохранена автоматически.
Поэтому отключение показа сообщений сводится к простому алгоритму:

'отключаем показ сообщений
Application.DisplayAlerts = False
'производим действия, в результате которых может появится назойливое и ненужное сообщение
'какой-то код
'обязательно возвращаем показ сообщений
Application.DisplayAlerts = True

Но следует так же учитывать, что некоторые сообщения невозможно отменить даже этим методом. Например, при открытии кодом книги с нарушенными связями Excel запросит их обновление и указание источника, если это задано в свойствах книги. Чтобы избежать сообщений об изменении связей при открытии книг кодом можно использовать свойство книги UpdateLinks:

Workbooks.Open FileName:="C:Documentsкнига1.xlsx", UpdateLinks:=False

Поэтому если вдруг Вам посчастливилось нарваться на сообщение, которое не отменяется командой Application.DisplayAlerts = False, то имеет смысл присмотреться к методам и свойствам объекта(или параметрам метода), который это сообщение провоцирует.

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Болтливость Excel может, в конце концов, надоесть — он постоянно просит подтвердить, что вам действительно нужно то действие, которое вы только что попросили выполнить. Давайте прекратим разговоры и призовем Excel к делу. Мы говорим о таких сообщениях, как, например, вопрос, хотите ли вы включить макросы (когда у вас ни одного макроса нет) или же уверены ли вы, что хотите удалить лист. Далее рассказывается, как раз и навсегда избавиться от большинства часто появляющихся сообщений.

Включение макросов, когда у вас их нет

Excel демонстрирует прекрасную память, когда дело доходит до запоминания факта, что вы записали в книге макрос. К сожалению, он не забывает об этом, даже если вы уже удалили все макросы командой Сервис → Макрос → Макросы (Tools → Macro → Macros) или сочетанием клавиш Alt/Option+F8. Откройте рабочую книгу заново и вы снова увидите приглашение включить макросы, даже если их уже не осталось.
[stextbox id=»warning»]Приглашение включить макросы появляется, только если выбран средний уровень безопасности. При низком уровне безопасности макросы будут включаться без вывода предупреждения. На высоком уровне безопасности для максимальной защиты макросы автоматически выключаются.[/stextbox]
Когда вы записываете макрос, Excel вставляет модуль Visual Basic, содержащий ваши команды и пользовательские функции. При открытии рабочей книги Excel проверяет наличие таких модулей, пустых или заполненных макросами. При удалении макроса из рабочей книги удаляется только код внутри модуля, но не сам модуль — как если бы, выпив остатки молока, вы поставили пустую коробку обратно в холодильник, который вы купили в интернет-магазине бытовой техники. Чтобы избежать ненужных приглашений включить макросы, необходимо удалить модуль. Вот как это делается.

Откройте VBE командой Сервис → Макрос → Редактор Visual Basic (Tools → Macro → Visual Basic Editor) или сочетанием клавиш Alt/Option+Fll и выберите команду View → Project Explorer. (Ha Macintosh окно Projects открыто всегда, поэтому Project Explorer открывать не нужно.).

Найдите в Project Explorer свою рабочую книгу и щелкните значок плюс (+) слева от нее, чтобы развернуть компоненты книги, в частности, модули. Щелкните значок плюс слева от папки Modules, чтобы увидеть все существующие модули. Правой кнопкой мыши по очереди щелкайте все модули и в контекстном меню выбирайте команду Remove Module. Откажитесь от экспорта модулей. Не удаляйте модули, не подумав. Перед удалением по очереди дважды щелкайте все модули, чтобы убедиться, что они действительно не нужны. Как обычно, чтобы вернуться обратно в Excel, нажмите сочетание клавиш Att/Apple+Q.

Приглашение сохранить несуществующие изменения

Вы могли заметить, что иногда, когда вы просто открываете рабочую книгу и просматриваете ее, Excel выдает приглашение сохранить изменения в вашей личной книге макрокоманд, хотя вы не вносили никаких изменений. Знаете вы это или нет, в вашей личной книге макрокоманд, вероятно, есть пересчитываемая функция.

Личная книга макросов (personal macro workbook) — это скрытая рабочая книга, созданная, когда вы впервые записывали макрос, и открывающаяся каждый раз вместе с Excel. Пересчитываемая функция (volatile function) (или формула) — это функция, которая автоматически пересчитывается, когда вы практически ничего не делаете в Excel, например, просто открываете или закрываете рабочую книгу или все приложение. Две самые распространенные пересчитываемые функции — это TodayQ и Now().

Так, хотя вручную в рабочей книге вы ничего не изменили, эти пересчитываемые функции, выполняющиеся в фоновом режиме, могли все же внести какие-то изменения. Это считается допустимым и вызывает появление приглашения Excel сохранить подобные невидимые изменения. Если вы хотите, чтобы Excel прекратил требовать сохранять изменения, которые вы не делали, это можно сделать двумя способами. Самый очевидный — не хранить пересчитываемые функции в личной книге макрокоманд и удалить уже записанные туда. Или, если они все же нужны, можно применить следующий простой фрагмент кода из листинга 1.7, чтобы обойти проверку, заставив Excel думать, что ваша личная книга макрокоманд была сохранена в момент открытия.

1
2
3
4

// Листинг 1.7
Private Sub workbook_0pen( )
	Me.Saved = True
End Sub

Этот код должен находиться в частном модуле вашей личной книги макрокоманд. Чтобы открыть его, из любой рабочей книги выберите команду Окно → Отобразить (Window → Unhide), затем в диалоговом окне Вывод на экран скрытого окна книги (Unhide Workbook) выберите книгу Personal.xls и щелкните на кнопке ОК. Откройте редактор VBE и введите предыдущий код. Закончив, нажмите сочетание клавиш Alt/Apple+Q, чтобы вернуться в Excel.

Конечно, если у вас есть переменная функция, которая должна пересчитываться, и вы хотите сохранить изменения, необходимо сказать об этом Excel явно, при помощи кода из листинга 1.8.

1
2
3
4

// Листинг 1.8
Private Sub workbook_0pen( )
	Me.Save
End Sub

Этот макрос будет автоматически сохранять вашу личную книгу макрокоманд при каждом ее открытии.

Запрещение предупреждений и приглашений Excel для записанных макросов

Один из многих недостатков записанных макросов заключается в том, что, хотя они довольно хорошо имитируют практически любую команду, они обычно забывают ваши ответы на приглашения. Удалите рабочий лист и увидите просьбу подтвердить команду; запустите макрос, делающий то же самое, и также увидите приглашение. Давайте выключим эти приглашения.

Выберите команду Сервис → Макрос → Макросы (Tools → Macro → Macros) (Alt/Option+F8), чтобы вывести список ваших макросов. Удостоверьтесь, что в списке Находится в (Macros In) выбран пункт Все открытые книги (All Open Workbooks). Выберите нужный макрос и щелкните кнопку Изменить (Edit). Поместите курсор перед первой строкой кода, то есть перед первой строкой, в начале которой не стоит апостроф, и введите следующую строку:

1

Application.DisplayAlerts = False

В самом конце кода добавьте следующую строку:

1

Application.DisplayAlerts = True

Теперь ваш макрос должен выглядеть так, как это показано в листинге 1.9.

1
2
3
4
5
6
7
8

// Листинг 1.9
Sub МуМасго()
' макрос МуМасrо
' удаляет активный рабочий лист
	Application.DisplayAlerts = False
	ActiveSheet.Delete
	Application.DisplayAlerts = True
End Sub

Обратите внимание, что в конце макроса вы снова включили вывод сообщений, чтобы во время работы в Excel выводились стандартные сообщения и приглашения Excel. Если этого не делать, то вы не увидите вообще никаких сообщений, даже тех, которые бывают весьма полезны.
[stextbox id=»alert»]Если выполнение вашего макроса по какой-то причине не завершится, например, из-за ошибки выполнения, Excel может никогда не добраться до строки кода, включающей предупреждения. В этом случае, вероятно, будет полезно закрыть и заново запустить Excel, чтобы вернуться к нормальному состоянию дел.[/stextbox]
Теперь вы знаете, как работать в Excel, не натыкаясь на предупреждения и приглашения. Однако помните, что для создания этих сообщений существовали определенные причины. Удостоверьтесь, что вы полностью понимаете назначение сообщения, перед тем как отключить его.

How to stop an Excel alert window or message box from appearing while running a macro. This is particularly useful when running a macro that needs to close a workbook and you don’t want the «Save» dialogue box to appear.

Sections:

Code

Example Close Workbook

Notes

Code

Turn Alerts Off

Application.DisplayAlerts = False

Turn Alerts On

Application.DisplayAlerts = True

Example Close Workbook

The number one reason to use this is to allow Excel to open a workbook, get data from it, and close it without saving changes or seeing a pop-up message box asking to save the file.

Here is an example that will close the workbook:

Sub test_save()

Application.DisplayAlerts = False


'Code to run here
ActiveWorkbook.Close


Application.DisplayAlerts = True

End Sub

When I run the above macro, the workbook will close without any notices, messages, or warnings.

However, if I comment-out the lines with DisplayAlerts and run it, the process is different.

Here is the commented-out code:

Here is what happens when I run it:

That window appears and the user has to click a button to proceed. This is not a very user-friendly setup, especially if a novice user is trying to use a macro that you created and they don’t know what is going on.

Notes

This is a very helpful piece of code to include in your macros. Keep this information in the back of your mind so you can use it when needed.

In the sample file for this tutorial I commented-out every line of code so you can uncomment what you want to test it.

Make sure to download the sample Excel file for this tutorial to work with these examples.

Similar Content on TeachExcel

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!