[okshef]

Временно решил с помощью макроса
Значения параметров выбрать под свои нужды

Код:

Sub QueryTable_Properties() 

    With Selection.ListObject.QueryTable 

        .RowNumbers = False
        .FillAdjacentFormulas = False 
        .PreserveFormatting = True 
        .RefreshOnFileOpen = False 
        .BackgroundQuery = True 
        .RefreshStyle = xlInsertDeleteCells 
        .SavePassword = False 
        .SaveData = True 
        .AdjustColumnWidth = True 
        .RefreshPeriod = 0 
        .PreserveColumnInfo = True 

    End With 

End Sub

Параметры выбираются по нуждам