txt dosyası olmadan ilgili excel dosyası calısmasın

[Kemal Demir]

Arkadaslar iyi akaşmlar,

Ã?rnek:

c:\qwq\ilgili.txt

yukarıdaki gibi qwq klasor içerisinde ilgili.txt dosyası olmadan excel dosyasında veriler görülmesin yada excel dosyası acılması
"Gerekli dosya Yok" Gibi Bir ibare olması sağlanabilirmi.

Yardımlarınız İçin Teşekkur ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:41009d6680]Sub auto_open()
deger = CreateObject("Scripting.FileSystemObject").FileExists("c:\qwq\ilgili.txt")
If deger = True Then
Application.Visible = True
Else
Application.Visible = False
MsgBox "GEREKLİ DOSYA MEVCUT DEÐİLDİR"
ActiveWorkbook.Close
End If
End Sub
[/vb:1:41009d6680]

 

[Kemal Demir]

COK TEÞEKKUR EDERİM ,

YALNIZ BİR KONUDA DAHA BİRÞEY DAHA ISTESEM ,(Değişiklik olarak)


İlgili.txt Dosya olmadan sayfa acılacak ama içindeki bilgileri görülmeyecek böle Bir şey yapılabilinirmi?

İyi Akşamlar

 

[Levent Menteşoğlu]

Bu durumda görünmesini istemediğiniz sayfaları gizletin.

[vb:1:09d41d82d5]Application.Visible = False
MsgBox "GEREKLİ DOSYA MEVCUT DEÐİLDİR"
ActiveWorkbook.Close
[/vb:1:09d41d82d5]
yukarıdaki yerine aşağıdaki gibi olabilir.

[vb:1:09d41d82d5]Sheets("sayfa1").visible = False
MsgBox "GEREKLİ DOSYA MEVCUT DEÐİLDİR"
[/vb:1:09d41d82d5]

 

[Kemal Demir]

Com tesekkur.
Zannedersem ne istediğimi Bilmiyorum cunku 3 defa soruyorum.
:kafa: :yardim:

Dosya Gizlenmesi De olmasın Ama İçeriğinde Bilgiler Görünmesin.

Cok sımadıysam Yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Dosya Gizlenmesi De olmasın Ama İçeriğinde Bilgiler Görünmesin.

Son önerdiğim zaten dosyayı değil sayfayı gizler. Kasdettiğiniz sayfayı gizlemeden görünmesin derseniz açıkçası böyle bir yol bilmiyorum.

 

[Kemal Demir]

Cok teşekkur ederim bu yoğunluğunda verdiğin cevaplar için cok saol