Не отключается системное сообщение

[Bezdar]

Помогите советом! Хочу при открытии файла отключить сообщение об обновлении связей (связь не обновляется, т.к. закрыт доступ к файлу). DisplayAlerts = false не работает, т.к. сообщение загружается раньше, чем макрос. Или я чего-то не понимаю?

[VictorM]

как-то тоже возникал такой вопрос. Посмотрите Здесь, возможно найдете решение своей задачи.
и вот еще по теме

[Bezdar]

----------

[Bezdar]

Насколько я могу понять ответ - это отключение обновления внешних связей. А мне нужно, чтобы связи обновлялись, а сообщение не выскакивало.

[VictorM]

Не могу к сожалению сечас проверить, нет подходящего файла со связями, но мне кажется, что вот это

Sub OpenExcelLinks()
    iExcelLinks = ThisWorkbook.LinkSources(xlExcelLinks)
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        ReDim iOpenWb(1 To .Workbooks.Count)
        For iCount& = 1 To .Workbooks.Count
            iOpenWb(iCount&) = .Workbooks(iCount&).FullName
        Next
        For Each iFileName In iExcelLinks
            On Error Resume Next
            If Dir(iFileName) <> "" Then
               If .IsError(.Match(iFileName, iOpenWb, 0)) = True _
               Then .Workbooks.Open FileName:=iFileName, UpdateLinks:=0
            End If
        Next
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

как раз и обновит все связи ни очем не спрашивая.
Попробуйте поместите процедуру в Private Sub Workbook_Open()...

[Bezdar]

VictorM
Чего бы я ни сажала на workbook_open, сообщение об обновлении выскакивает раньше, чем запускается любой макрос.

[IgorGO]

может в реестре
HKEY_CURRENT_USER\Software\Microsof t\Office\11.0\Excel\Options
RefreshAlert с 1 на 0 заменить? и для чистоты эксперимента перегрузить компьютер.

это чистой воды предположение. а вдруг...
если что - можно все обратно вернуть.

[VictorM]

еще есть такое предложение, опять же не могу проверить
Правка > Связи > Запрос на обновление связей > Не задавать вопрос и обновлять связи
Попробуйте, мож оно...

[Bezdar]

IgorGO
Не хотелось бы лезть в реестры юзеров...
VictorM
Запрос на обновление связей уже отключен стандартными Excel-скими методами. Но т.к.
одну из нескольних связей Excel обновить не в состоянии, то и ругается соответственно, раздражая этим самым пользователей.

[SAS888]

Дело действительно в том, что связи Excel обновляет раньше, чем обрабатывает событие Workbook_Open(). К тому же, отключение вывода сообщений Application.DisplayAlerts = False работает до тех пор, пока не будет явно переключено в True, либо до окончания работы той процедуры, откуда было произведено это отключение. Поэтому, в Вашем случае все это не поможет.
Можно поступить следующим образом:
В Правка->Связи->Запрос на обновление связей - установить "Не задавать вопрос и не обновлять связи". А в модуле книги прописать:

Private Sub Workbook_Open()

    Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    
End Sub

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