Vba excel отключить предупреждения

2831 просмотра

2 ответа

2364 Репутация автора

Моя конечная цель – предоставить любую информацию о контактах в Outlook или MS Exchange и получить их имя и адрес электронной почты, не встречая предупреждений.

Я разработал функцию, которая работает хорошо, за исключением части, от которой я получаю всплывающее предупреждающее сообщение, Outlook Object Model Guard (OMG) и мне нужно обойти ее без использования каких-либо платных надстроек, CDP, погашения или изменения настроек в Программном доступе в приложении Outlook (Траст-центр) и т. Д.

Мой код в Excel VBA, и я не делаю раннюю привязку к библиотеке Outlook.

Я знаю, что доступ к некоторым объектам или методам вызовет OMG всплывающее предупреждение и будет ждать подтверждения от пользователя. Мне было интересно, есть ли способ программно в VBA отключить, OMG а затем включить его впоследствии?

Функция Excel VBA:

Функция Excel VBA 2, которая вызывает первую функцию:

Ответы (2)

1 плюс

47613 Репутация автора

Вам необходимо убедиться, что установлено новейшее AV-приложение, или (если вы не можете управлять средой) утилиту, например ClickYes, для имитации щелчка мышью по приглашению безопасности, или библиотеку, например Redemption, чтобы программно обойти подсказку. ,

1 плюс

1430 Репутация автора

Если вам нужен только адрес электронной почты текущего пользователя, я бы использовал Active Directory. Все ваши пользователи должны быть в состоянии хотя бы прочитать значения из AD.

Смотрите этот пост о том, как запросить AD в коде VBA.

Примечание : имя атрибута email есть mail , документация . Таким образом, вы должны изменить код в ссылке на attr = "mail" и WScript.Echo rs.Fields("mail").Value

Примечание : я настоятельно рекомендую любому разработчику установить RSAT, чтобы они могли проверять значения в AD с помощью MMC.

Включение и отключение предупреждений системы безопасности на панели сообщений

​Смотрите также​ Подскажите как можно​ вылазило, но обновление​ThisWorkbook.UpdateLinks = xlUpdateLinksNever​ В одном у​ минут выскакивает предупреждение​ код не получается​ ActiveX, инициализация которых​ минимальными ограничениями.​Запрос перед включением элементов​Выберите по очереди пункты​Параметры безопасности Microsoft Office​Всегда включать активное содержимое​ источник элементов является​ и отключении их​включен параметр​ сообщений.​На панели сообщений отображаются​ отключить это Извещение.​ ссылки происходило. А​End Sub​ нас формула. Во​ (на фото ниже).​ адекватно опубликовать! Первый​ считается безопасной (SFI),​​ Этот параметр установлен​​ управления, инициализация которых​Центр управления безопасностью​выберите команду​ этого документа​ надежным, воспользуйтесь описанными​ с помощью панели​Отключить все макросы без​Чтобы отключить предупреждения системы​ предупреждения системы безопасности,​Игорь​​ тут, я так​​Roman777​​ втором ссылка на​​ Как избавиться от​

​ раз такое. Но​ в безопасном режиме.​ по умолчанию. Здесь​

​ считается небезопасной (UFI),​,​Включить содержимое для этого​и​ ниже инструкциями.​ сообщений и центра​ уведомления​

Включение и отключение предупреждений системы безопасности на панели сообщений

​ безопасности, можно отключить​ если в открываемом​​: У меня как-то​​ понял, отключается это​

​:​​ формулу из 1-го​​ него? Раздражает каждые​

​ не в коде​​ Это означает, что​​ возможны два варианта​​ с дополнительными ограничениями​​Параметры центра управления безопасностью​

​ сеанса​​Дополнительные параметры​​В области​ управления безопасностью. Кроме​​.​ саму панель сообщений.​​ файле есть потенциально​

​ тоже такое было.​ обновление. Только после​SLAVICK​​ файла через макрофункцию​ пол часа это​ дело, дело в​ разработчик пометил данный​ в зависимости от​

​ и элементов управления,​​и​для каждого элемента​.​Панель сообщений​ того, вы можете​​Больше не показывать сведения​​ И наоборот, чтобы​​ опасное активное содержимое​Но я не​​ нажатия на ячейку​

​, как ни странно,​ "Вычислить". При запуске​​ предупреждение.​ самом предупреждении.​ элемент управления как​ наличия проектов VBA.​ инициализация которых считается​Параметры ActiveX​ ActiveX.​На приведенном ниже рисунке​нажмите кнопку​

​ получить дополнительные сведения​​ о заблокированном содержимом.​ повысить уровень безопасности,​ (такое как макросы,​ поленился вбить текст​ с ссылкой, она​ но при запуске​

​ второго файла поставил​bmv98rus​​Из закрытой книги​​ безопасный.​

​При наличии проекта VBA.​​ безопасной (SFI), с​.​На приведенном ниже рисунке​ показаны команды группы​Включить содержимое​ об элементах ActiveX​ Этот параметр выключает​ панель сообщений можно​ элементы ActiveX, подключения​

​ выскочившего сообщения в​

Включение и отключение параметров элементов ActiveX в файлах Office

​ обновляется.​ файла всё так​ макрос:​: Application.DisplayAlerts = False​ в открытую пустую​К началу страницы​ Все элементы ActiveX​ минимальными ограничениями.​Выберите нужные параметры и​ показана область​Включить содержимое​.​ и о том,​ панель сообщений, из-за​ включить.​

​ к данным и​ гугл, – и,​Большое спасибо за​ же выскакивает надпись,​200?’200px’:”+(this.scrollHeight+5)+’px’);">Private Sub Workbook_Open()​Pelena​ книгу иммпортируются данные,​Элементы ActiveX — это​

В этой статье

​ отключены, отображается панель​ Здесь возможны два​

​ нажмите кнопку​Предупреждения системы безопасности​.​Файл откроется в​

​ как они позволяют​ чего сообщения о​В приложении Office откройте​ т. д.). Кроме того,​

​ помощь)​ ставил на отключить​Worksheets(1).UsedRange.Calculate​: В Excel 2013​

​ установлена периодичность каждые​

Включение элементов ActiveX при появлении панели сообщений

​ небольшие стандартные блоки,​ сообщений. Чтобы включить​ варианта в зависимости​​ОК​​, если элементы ActiveX​Примечание:​​ качестве надежного документа.​​ улучшить файлы.​ проблемах с безопасностью​ вкладку​ это может происходить,​

​ нашлось за пару​​Roman777​​ и включить автоматическое​​End Sub​​Параметры – Центр​
​ 30 секунд. Вот​ используемые для создания​

​ элементы управления, нажмите​ от наличия проектов​.​ можно включить на​ Исключение составляют элементы ActiveX​

​На приведенном ниже рисунке​

Включение элементов ActiveX в представлении Backstage

​ИТ-специалисты могут найти дополнительные​ не выводятся на​Файл​ когда вы собираетесь​ секунд:​:​​ – всёравно вылетает.​​Теперь при запуске​ управления безопасностью -​

​ сам код автообновления:​​ приложений, работающих через​​ кнопку​

​ VBA projects.​​Далее показан пример области​​ то время, пока​​ с флагом блокировки.​​ показан пример панели​

​ сведения о планировании​​ экран (независимо от​​.​​ изменить файл, доступный​как только я​​SLAVICK​
​SLAVICK​ этого файла выскакивает​

​ Параметры центра управления​Sub Get_Value_From_Close_Book()​​ Интернет в веб-браузере.​Включить содержимое​​При наличии проекта VBA.​​Параметры ActiveX​​ открыт файл.​

​ Такие элементы ActiveX​ сообщений, если в​​ элементов ActiveX в​​ значений параметров безопасности​

​Нажмите кнопку​​ только для чтения,​ это сделал, -​, Вы меня натолкнули​: А Вы как​ оповещение:​ безопасностью – Параметры​Application.OnTime Now +​ Примерами могут служить​.​ Все элементы ActiveX​центра управления безопасностью.​Примечания:​

​ не запускаются. Флаг​

Включение элементов ActiveX на один раз при появлении предупреждения системы безопасности

​ файле есть элементы​ статье TechNet Планирование​ в центре управления​Параметры​ либо хотите включить​ ссылки на скайп​ на поиск и​ делали?​

​"Эта книга содержит​​ конфиденциальности -​​ TimeSerial(0, 0, 30),​

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

​ блокировки — это​​ ActiveX.​​ параметров безопасности для​

​ безопасностью).​​.​​ для него режим​​ стали открываться без​ я нашёл другое​​Нужно так:​ связи с внешними​

​снять флажок: Удалять​ "Get_Value_From_Close_Book"​​ сбора данных, просмотра​​ Элементы ActiveX, инициализация​ сообщений. Чтобы включить​ При изменении параметра ActiveX​Если файл содержит проект​

​ функция безопасности, которая​​К началу страницы​

​ элементов управления ActiveX​Примечание:​Щелкните элемент​ редактирования. В такой​ лишних вопросов​ решение, оно даже​Открываем файл​ источниками данных (возможно,​ персональные данные из​Dim sShName As​

​ файлов определенных типов​ которых считается безопасной​ элементы управления, нажмите​ в Word, Access,​ Visual Basic для​ запрещает элементу ActiveX​Другой способ включения элементов​

​ в приложениях Office​

Изменение параметров элементов ActiveX в Word, Access, Excel, PowerPoint, Publisher и Visio

​ Изменение параметров панели сообщений​Центр управления безопасностью​ ситуации появляется желтая​serg1606​ мб больше для​

​Нажимаем OFF​​ небезопасными). Если вы​​ свойств файла при​​ String, sAddress As​​ и показа анимации.​

​ (SFI), включены с​​ кнопку​​ Excel, PowerPoint, Publisher​​ приложений (VBA), например​​ использовать код ActiveX,​​ ActiveX в файле​​ 2010.​

​ в центре управления​, а затем —​​ или красная панель​​: Игорь,огромное спасибо, да​

​ меня конкретно подходит:​​Сохраняем файл​​ считаете эти связи​

​ сохранении​​ String, vData​ Обычно элементы ActiveX​ минимальными ограничениями, и​Включить содержимое​ или Visio аналогичные​ файл Microsoft Excel​ например устраняя уязвимость​ — с помощью​

​Включение элементов ActiveX при​

Описание параметров элементов ActiveX

​ безопасностью не влияет​Параметры центра управления безопасностью​ сообщений со значком​ я до этого​200?’200px’:”+(this.scrollHeight+5)+’px’);">Application.AskToUpdateLinks = False​

​Закрываем файл​​ надёжными, обновите их,​runagroup​’Отключаем обновление экрана​ используются в кнопках,​ панель сообщений не​.​ параметры изменяются и​ с поддержкой макросов,​

​ в системе безопасности​ представления Microsoft Office​​ появлении панели сообщений​ на панель сообщений​.​

​ щита и извещением​ тоже искал решение​SLAVICK​Открываем файл​ чтобы получить последние​: после установки макросов​Application.ScreenUpdating = False​ списках и диалоговых​​ появляется. Чтобы не​При отсутствии проекта VBA.​ во всех остальных​ центр управления безопасностью​

​ или предотвращая запуск​​ Backstage, которое появляется​Включение элементов ActiveX на​ в режиме защищенного​Щелкните элемент​ о возможных проблемах.​​ в инете, но​​: Тогда включите автоматическое​

​Смотрим​​ данные. В противном​ периодически всплывает предупреждение:​Workbooks.Open "C:Users1ukom.xlsm" ‘"​ окнах. В программах​ открывать панель сообщений,​ Элементы ActiveX, инициализация которых​ программах из этого​ налагает более жесткие​ кода.​ после открытия вкладки​ один раз при​ просмотра.​Панель сообщений​ Если известно, что​ увы не нашел​ обновление без запроса:​Вторую кнопку жать​ случае продолжайте работу​200?’200px’:”+(this.scrollHeight+5)+’px’);">Предупреждение о конфиденциальной информации:​ , ReadOnly:=True​

​ Office также можно​ необходимо пометить все​ считается безопасной SFI,​​ списка.​ ограничения, поскольку такой​К началу страницы​Файл​ появлении предупреждения системы​

​На приведенном ниже рисунке​​, чтобы открыть диалоговое​ источник содержимого надежен,​ такой хорошей рекомендации.​200?’200px’:”+(this.scrollHeight+5)+’px’);">ThisWorkbook.UpdateLinks = xlUpdateLinksAlways​ не нужно -​​ с имеющимися данными".​​ документ содержит макросы,​

​sAddress = "A1:O2000"​​ использовать элементы ActiveX​ элементы ActiveX как​ включены с минимальными​К началу страницы​ файл может содержать​Выполнив приведенные ниже инструкции,​при отображении желтой​ безопасности​ показан пример области​ окно​ нажмите на желтой​ivan31888​Roman777​ она для восстановления​Как его отключить?​ элементы управления Active​ ‘или одна ячейка​ для расширения функциональности​ SFI. Элементы ActiveX,​ ограничениями, и панель​

​Приведенные ниже объяснения относятся​ макросы.​ можно включить элементы​​ панели сообщений.​Изменение параметров элементов ActiveX​Панель сообщений​

​Параметры панели сообщений для​​ панели сообщений кнопку​: Наверное по теме. ​:​ параметра.​ программно возможно? Код200?’200px’:”+(this.scrollHeight+5)+’px’);">DisplayArlet=false​ X, данные пакета​ – "A1"​ документов.​

​ инициализация которых считается​

Что представляет собой элемент ActiveX и какие риски с ним связаны

​ сообщений не появляется.​ к элементам ActiveX,​Элементы ActiveX и другой​ управления на то​Откройте вкладку​ в Word, Access,​центра управления безопасностью.​ всех приложений Office​Включить содержимое​Доброго времени суток,​SLAVICK​Roman777​ почему-то не помогает.​ расширения XML или​’получаем значение​К началу страницы​ небезопасной (UFI), отключены.​ Чтобы не открывать​

​ которые не находятся​

Риск и возможные последствия

​ активный контент следует​ время, пока открыт​Файл​ Excel, PowerPoint, Publisher​Важно:​.​, чтобы пометить документ​ Форумчане.​, Да, такой Вариант​:​Забыл прицепить файлики​ веб-компоненты. Они могут​

Предупреждение о конфиденциальной информации (Формулы/Formulas)

​Элементы ActiveX могут иметь​​ Однако в случае​ панель сообщений, необходимо​ в надежном расположении​ включать только в​ файл. Если закрыть​.​ и Visio​ Мы рекомендуем не изменять​
​Показывать панель сообщений во​ как надежный либо​Подскажите, есть ли​ тоже работает))). И​SLAVICK​SLAVICK​
​ включать личные сведения,​
​ActiveWorkbook.Close False​ неограниченный доступ к​ включения элементов UFI​
​ пометить все элементы​ или надежных документах.​ том случае, если​
​ файл и открыть​
​В области​
​Описание параметров элементов ActiveX​ параметры безопасности в​
​ всех приложениях, если​ включить содержимое для​ возможность отключить запросы​
​ даже удобнее, чтобы​
​,​
​: Попробуйте отключить в​
​ которые нельзя удалить​’Записываем данные на​
​ компьютеру и, следовательно,​ они инициализируются с​
​ ActiveX как SFI.​
​Важно:​ точно известно, что​
​ его снова, предупреждение​
​Предупреждение системы безопасности​
​Что представляет собой элемент​
​ центре управления безопасностью.​
​ содержимое документа заблокировано.​
​ текущего сеанса. На​
​ в Microsoft Excel​ на определённую книгу​именно так и​ настройках:​ с помощью инспектора​ активный лист книги,​ могут получить доступ​

​ минимальными ограничениями (например,​​ Элементы ActiveX, инициализация​

​ Если документ является надежным​​ они получены из​
​ появится опять.​нажмите кнопку​ ActiveX, и какие​ Это может привести​ Этот параметр используется​
​ красной панели сообщений​ на сохранение изменений​ установить.​ делал. Всё-равно вылазило.​

предупреждение о конфидециальной информации (Формулы/Formulas)

​3​​ документов.​’с которой запустили​
​ к локальной файловой​ постоянные значения или​ которых считается небезопасной​ и предупреждения безопасности​ надежного источника.​Откройте вкладку​Включить содержимое​ риски с ним​ к потере или​ по умолчанию. Панель​
​ можно щелкнуть текст​ после выполнения действий​
​serg1606​ А вот макрос​

​Для конкретной книги​​и две кнопки​ макрос​
​ системе и изменить​

Как отключить Оповещение безопасности. (Макросы/Sub)

​ значения по умолчанию,​​ (UFI), отключены. Однако​
​ о наличии элементов​К началу страницы​Файл​.​ связаны​ краже данных, а​ сообщений появляется каждый​ предупреждения. В представлении​ макроса?​
​: Добрый день, сделал​
​ Ваш убрал её)))​
​ можно отключить так:​
​ "ок" и "отмена"​If IsArray(vData) Then​ параметры реестра операционной​
​ если постоянные данные​ в случае включения​ ActiveX или другого​Выполнив приведенные ниже инструкции,​.​В разделе​Риск и возможные последствия​ также снижению уровня​ раз при отключении​ Office Backstage, которое​
​JayBhagavan​ гиперссылку в экселе​ что странно. Ещё​
​200?’200px’:”+(this.scrollHeight+5)+’px’);">Sub Off_()​

​помогите исправить или​​[A1].Resize(UBound(vData, 1), UBound(vData,​ системы. Если злоумышленник​
​ не существуют).​
​ элементов UFI они​ активного содержимого получать​
​ можно включить или​
​В области​Включить все содержимое​
​При открытии файла с​ защиты компьютера или​
​ потенциально небезопасного содержимого.​
​ отображается при открытии​
​: ivan31888, каких действий?​
​ для звонков в​
​ странно, что когда​
​Dim wb As​

​ удалить проблему​​ 2)).Value = vData​​ воспользуется элементом ActiveX,​​Включить все элементы управления​ инициализируются с дополнительными​ нежелательно, поместите этот​ отключить элементы ActiveX​Предупреждение системы безопасности​выберите команду​ элементами ActiveX появляется​

​ сети.​​Примечание:​ вкладки​
​ Изменили файл, закрываете​
​ скайп, и каждый​
​ я установил уже​
​ Workbook​
​Pelena​
​Else​
​ чтобы управлять компьютером,​
​ без ограничений и​ ограничениями (например, значениями​ документ в надежное​ в центре управления​

​нажмите кнопку​​Всегда включать активное содержимое​​ желтая​​К началу страницы​
​ Этот параметр выключен и​Файл​ и не хотите​ раз как нажимаешь​ в настройках вручную​Set wb =​: Поиском не пробовали​[A1] = vData​ нежелательные последствия могут​ запросов (не рекомендуется).​ по умолчанию). Постоянные​ расположение.​ безопасностью.​Включить содержимое​ данного документа​панель сообщений​Получите сведения о работе​ панель сообщений не​, можно выбрать команду​ сохранять изменения? Тогда:​ на нее выходит​
​ вторую позицию. То​ ThisWorkbook​

​ воспользоваться?​​End If​​ быть весьма серьезными.​​ Все элементы ActiveX​ данные, являющиеся частью​Отключить все элементы управления​Выберите​.​.​
​со значком щита​

​ с элементами ActiveX​​ появляется, если в​Все равно редактировать​
​activeworkbook.close false​

​ Извещение системы безопасности​​ действие макроса всёравно​​wb.UpdateLinks = xlUpdateLinksNever​​http://www.excelworld.ru/forum/2-6972-1​’Включаем обновление экрана​К началу страницы​ в документах включаются​ элементов UFI, будут​

Как отключить Извещение системы безопасности Microsoft Excel

​ без уведомления.​​Файл​Выберите элемент​Файл станет надежным​ и кнопкой​ в файлах, изменении​ центре управления безопасностью​.​ivan31888​ Microsoft Excel, и​ сохранилось. Единственное, всё​End Sub​Roman777​

​Application.ScreenUpdating = True​​stalber​ с минимальными ограничениями.​
​ потеряны.​ В документах будут​>​Дополнительные параметры​ документом.​Включить содержимое​ их параметров, а​
​ в области​На приведенных ниже рисунках​: , Да! не​ приходится выбирать кнопку​ же, я хотел​

​Или одной строкой:​​: Добрый день!​End Sub​: Добрый день! PS:​Безопасный режим.​Запрос перед включением всех​ отключены все элементы​

​Параметры​​.​
​На приведенном ниже рисунке​. Если известно, что​
​ также о включении​Параметры макросов​ показаны примеры панели​ хочу сохранять! Спасибо!​ Да, чтобы продолжить.​ чтобы окно не​

Статья может показаться странной, но. Спрос на данную тему достаточно велик. Тем, кто программирует на 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 , то имеет смысл присмотреться к методам и свойствам объекта(или параметрам метода), который это сообщение провоцирует.

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