Программное отрытие книги

[tae1980]

Открываю книгу так:

    With Application
        .EnableEvents = False      
        .Calculation = xlManual    
        .AskToUpdateLinks = False  
        .ScreenUpdating = False  
    End With

    Application.AskToUpdateLinks = False   
    Set wb = GetObject(fil.path)                       
    wb.ChangeFileAccess Mode:=xlReadOnly, Notify:=True

Иногда при открытие книги вылетает сообщение:
"Эта книга содержит одну или несколько связей, которые не могут быть обновлены. Продолжить/Изменить связи..."

Как всегда отказываться от обновления?

[npocmop]

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

[tae1980]

Сообщение от npocmop

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

Это изменение свойств уже открытой книги. А как открыть раннее созданную книгу?

[tae1980]

Сообщение от tae1980

Иногда при открытие книги вылетает сообщение:
"Эта книга содержит одну или несколько связей, которые не могут быть обновлены. Продолжить/Изменить связи..."
Как всегда отказываться от обновления?

Не уж то нет путей решения?

[tae1980]

Сообщение от tae1980

Открываю книгу так:

    With Application
        .EnableEvents = False      
        .Calculation = xlManual    
        .AskToUpdateLinks = False  
        .ScreenUpdating = False  
    End With

    Application.AskToUpdateLinks = False   
    Set wb = GetObject(fil.path)                       
    wb.ChangeFileAccess Mode:=xlReadOnly, Notify:=True

Иногда при открытие книги вылетает сообщение:
"Эта книга содержит одну или несколько связей, которые не могут быть обновлены. Продолжить/Изменить связи..."
Как всегда отказываться от обновления?

Поступил вот так:

Set wb = Workbooks.Open(fil.path, ReadOnly:=True, UpdateLinks:=0)

Больше ни какие вопросы не задаются.