Как отключить Оповещение безопасности.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

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

Roman777

Дата: Вторник, 17.11.2015, 10:49 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Добрый день!
Имеется 2 файла. В одном у нас формула. Во втором ссылка на формулу из 1-го файла через макрофункцию "Вычислить". При запуске второго файла поставил макрос:
[vba]

Код

Private Sub Workbook_Open()
Worksheets(1).UsedRange.Calculate
End Sub

[/vba]
Теперь при запуске этого файла выскакивает оповещение:
"Эта книга содержит связи с внешними источниками данных (возможно, небезопасными). Если вы считаете эти связи надёжными, обновите их, чтобы получить последние данные. В противном случае продолжайте работу с имеющимися данными".
Как его отключить? программно возможно? [vba]

Код

DisplayArlet=false

[/vba] почему-то не помогает.
Забыл прицепить файлики

К сообщению приложен файл: 9450343.xlsm (7.8 Kb) · 9133755.xlsm (13.5 Kb)

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Вторник, 17.11.2015, 10:55

Ответить

SLAVICK

Дата: Вторник, 17.11.2015, 11:27 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Попробуйте отключить в настройках:

3

Для конкретной книги можно отключить так:
[vba]

Код

Sub Off_()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.UpdateLinks = xlUpdateLinksNever
End Sub

[/vba]
Или одной строкой:
[vba]

Код

Sub Off_()
ThisWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

[/vba]

К сообщению приложен файл: 9133755-1-9.xlsm (18.4 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 17.11.2015, 11:41

Ответить

Roman777

Дата: Вторник, 17.11.2015, 11:48 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

SLAVICK, как ни странно, но при запуске файла всё так же выскакивает надпись, ставил на отключить и включить автоматическое - всёравно вылетает.

Много чего не знаю!!!!

Ответить

SLAVICK

Дата: Вторник, 17.11.2015, 12:09 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Roman777, 17.11.2015 в 11:48, в сообщении № 3

ставил на отключить и включить автоматическое - всёравно вылетает.

А Вы как делали?
Нужно так:
Открываем файл
Нажимаем OFF
Сохраняем файл
Закрываем файл
Открываем файл
Смотрим

Вторую кнопку жать не нужно - она для восстановления параметра.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 17.11.2015, 12:11

Ответить

Roman777

Дата: Вторник, 17.11.2015, 12:25 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

SLAVICK,

Цитата SLAVICK, 17.11.2015 в 12:09, в сообщении № 4

Нужно так:

именно так и делал. Всё-равно вылазило. А вот макрос Ваш убрал её))) что странно. Ещё странно, что когда я установил уже в настройках вручную вторую позицию. То действие макроса всёравно сохранилось. Единственное, всё же, я хотел чтобы окно не вылазило, но обновление ссылки происходило. А тут, я так понял, отключается это обновление. Только после нажатия на ячейку с ссылкой, она обновляется.
Большое спасибо за помощь)