AccessTr.neT

Benim bilgisayarımda tam kapatıyor, arkada planda çalışmaya devam etmiyor, görev yöneticisinde arka planda çalışan Excel dosyası görünmüyor. Bu bahsettiğim kendi yukledigim dosya için geçerli sizin calismanizi inceleme fırsatım olmadı. Ama siz benim dosyam için de arka planda açık kaldığını söylediniz buna bir anlam veremedim, bende sorunsuz çalışan kod sizde neden kapatmaz programı?

Evet Berduş hocamın dosyası kapanıyor. Arka planda çalışmıyor. Berduş Hocamın dosyasını kullanacağım. İkinize de çok, çok teşekkürler ellerinize sağlık.
 Konuyu taşıya bilirsiniz saygılarımla.

Benim yukledigim dosya şimdiye kadar çalışıyor muydu? Sizin dosyanızla aradaki fark ne, sadece workbook_open olayının kodlarıyla kapanma kodlarına ekledigim kodlar değişmişti?

Hocam aşağıdaki kapanma kodları pasif ettiğinizden kaynaklanıyor olabilir mi.

Aşağıdaki blok hataya neden oldugundan kaldırdım
'If Val(deg) = 0 Then 'Excel X kapatmayı engellemek
''MsgBox "Lütfen ÇIKIŞ Butonunu Kullanınız.", vbCritical
'Cancel = True
'End If

O kodlar sorun çıkardığı için devre dışı bırakmıştım
Ama o kodlar olmadan da X'e bastığınızda kapanmıyor, butondan kapatınız uyarısı veriyordu. Yani o kodlara gerek yoktu.

---

Çözülmüşlere taşıyalım mı?

Örnek hazırladım.Sorun kapatma olayında  If Val(deg) = 0 herzaman sıfır oluyordu.

Gif ekledim.Yedek alınan C sürücüsüne txt dosyası ekletip ordaki veriye göre birşeyler yyaptım salt okunur olmadığı için deneyemedim bu şekilde.