Dosya açma kodunda hata

[gecemavisi]

Saygıdeğer arkadaşlar. Aşağıdaki kodu bir butona bağladım. Bastığımda dosyayı açıyor ama İptal tuşuna basınca nedense hata veriyor.
Sizce sorun nerde...

Private Sub CommandButton8_Click()
Unload Me
Windows("deneme.xls").Activate
Sheets("Sayfa").Select
Exit Sub
Unload Me
UserForm1.Show
End Sub


Saygılarımla...

 

[zafer]

Merhaba

Hata kodları nedir hangi satırda vermektedir yazabilirmisiniz.İptal tuşundan kastınız kapat(x) mıdır.

 

[gecemavisi]

Sn Zafer Bey;
açmaya çalıştığım dosyada parola koruması var. Burda parolayı girmeden iptale basarsam eğer hata veriyor.


Unload Me
On Error GoTo 10
Windows("deneme.xls").Activate
MsgBox ("PROGRAM AÇILDI")
Exit Sub
10 Workbooks.Open Filename:=ActiveWorkbook.Path & "\deneme.xls"
End Sub

Saygılarımla...

 

[albattross]

bendede benzer bir problem var makroyla dışarıdaki bir dosyadan veri almaya çalışıyorum dosya seçme penceresinde dosyayı seçersem problem yok verileri alıyor fakat dosya penceresi açıkken seçmeyip iptal tuşuna basarsam makro hata veriyor.

hata verdiği satır


Selection.QueryTable.Refresh BackgroundQuery:=False