Dış veri kaynağından veri alma

[merakli_72]

Mrb Arkadaşlar
aşağıdaki gibi dış veritabanından veri alma sorgusunda
.Refresh BackgroundQuery:=True
.RefreshPeriod = 1
yapmıştım
sonra bunları False ve 0 olarak değiştirdim,
fakat hala ilgili excel dosyasını açmak istediğimde bana

"Bu çalışma kitabı otomatik olarak yenilenen dış veri sorgularını içerir..."
Otomatik yenilemeyi etkinleştir,otomatik yenilemeyi devre dışı bırak diye soruyor

otomatik yenilemeyi devre dışı bırak seçilse bile kitabı bir sonraki açışta yine aynı şey soruluyor (Güvenlik ayarları düşükte) bu durumdan nasıl kurtulurum

With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=MSDAORA.1;Password=" & Sheets("Tanımlar").Cells(6, "B") _
& ";User ID=" & Sheets("Tanımlar").Cells(5, "B") _
& ";Data Source=" & Sheets("Tanımlar").Cells(4, "B") _
, Destination:=Range(Yazim_Baslanacak_Hucre))
.CommandType = xlCmdSql
.CommandText = SqL
'.Name = "10.16.1.10_orcl (Varsayılan)"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False