Salt Okunur Açmayı Engellemek.

1 2 3 4 5 6 7 8 9 10 11 12 13
29/05/2020, 20:35

berduş

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ı?
29/05/2020, 21:20

m_demir

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.
29/05/2020, 21:25

berduş

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?
29/05/2020, 22:01

m_demir

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
29/05/2020, 22:06

berduş

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ı?
29/05/2020, 22:30

feraz

Ö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.


1 2 3 4 5 6 7 8 9 10 11 12 13