Обновление соединений данных в Excel 2010 VBA

Question

Итак, у меня есть весь код VBA, и это кажется правильным, но это просто не освежает книги. Единственное, что я могу придумать, это когда я открываю листы, которые мне нужно разрешить, так что мне нужно добавить что-то в свой код?

Edit: Я бегу это через VBScript

Public wb As Workbook 

Sub executeUpdate() 
    `some code 
    openBook path & testArray(i) & ext, True 
    saveBookAs path & testArray(i) 
End Sub 

Sub openBook(ByVal fileName As String, ByVal refresh As Boolean) 

    Set wb = Workbooks.Open(fileName, 0, False) 

    If refresh = True Then 
     wb.RefreshAll 
    End If 
End Sub 

Sub saveBookAs(ByVal fName As String) 
    wb.SaveAs fileName:=fName & "_posReport.xlsx" 
End Sub 

Answer 1

Я нашел этот код над here:

If Application.ProtectedViewWindows.Count > 0 Then 
    Application.ActiveProtectedViewWindow.Edit 
End If 

Не проверял, но, возможно, он работает для вас.

- Цитата:

код будет обходить необходимость для пользователя, чтобы выбрать кнопку «Включить редактирование» на панели сообщений ниже ленты. Еще одно примечание [...] код будет ошибочным, если книга не находится в «ProtectedView». Поэтому, чтобы избежать этого, следующий код будет разрешать редактирование только в том случае, если в рабочей книге включен «Защищенный вид».