VBA na wyłączenie kwerend

Witam wszystkich!

zarejestrowałem sobie takie makro z kwerendą:


Sub Kwerenda_Zrealizowane()
On Error Resume Next
Oddzial = Sheets("Zlecenia").ComboBox1.Value
Miesiac = Sheets("Zlecenia").TextBox1.Value
    Sheets("Zrealizowane").Select
    Columns("B").EntireColumn.Hidden = False
    Columns("D").EntireColumn.Hidden = False
    Columns("J:L").EntireColumn.Hidden = False
    Columns("N").EntireColumn.Hidden = False
    Columns("S").EntireColumn.Hidden = False
    Selection.AutoFilter Field:=1
    Selection.AutoFilter Field:=3
    Selection.AutoFilter Field:=9
    Selection.AutoFilter Field:=10
    Selection.AutoFilter Field:=11
Range("B5:S3000").Select
Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;W:\Serwis-RCP\Statystyka " & Oddzial & "\" & Oddzial & " " & Miesiac & ".txt", Destination:= _
        Range("B5"))
        .Name = Oddzial & " " & Miesiac
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = False
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1250
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Columns("B").EntireColumn.Hidden = True
    Columns("D").EntireColumn.Hidden = True
    Columns("J:L").EntireColumn.Hidden = True
    Columns("N").EntireColumn.Hidden = True
    Columns("S").EntireColumn.Hidden = True
Range("B5").Select
Sheets("Zlecenia").Select
End Sub

Przy załączeniu pliku uruchamia sie automatycznie, potem w programie jest button którym wrazie potrzeby można uruchomić ten proces jeszcze raz. Powyżej zastosowałem zmienne korzystajace z danych wprowadzonych ręcznie do comboboxa i textboxa, które zmieniają ścieżkę dostępu tej kwerendy.
Parametr

.RefreshOnFileOpen = False
oraz

.RefreshPeriod = 0
jest ustawiony tak aby nie odbywało się odświeżanie.

Problem jednak tkwi w tym że po wyłączeniu skoroszytu i ponownym jego załączeniu pojawia się komunikat "czy załączyć odświeżanie automatyczne"
Pytanie moje brzmi: Jak podczas uruchamiania pliku wyłaczyć wszystkie ewentualnie istniejące kwerendy w skoroszycie, aby nie pojawiał się komunikat o kwerendach?

Łączę pozdrowienia

napolko

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl