Salt Okunur Açmayı Engellemek.

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

m_demir

Çok teşekkürler Hocam ellerinize sağlık Hocam şu anda ağ olmadığı için deneme şansım yok. Pazartesi iş yerinde test edip size dönüş yapacağım.
29/05/2020, 22:46

feraz

Rica ederim biraz karışık kodlar oldu.Userform1 ve 2 ye kodlar ekledim Excel açtırmak vs.. gibi.
Application.quit ten dolayı işler karışıyordu.Sayın @berduş hocamız deneyebilir eksikleride halleder Allah'ın izniyle.
29/05/2020, 22:48

m_demir

Tamam Hocam teşekkürler.
29/05/2020, 22:50

berduş

Modulde sabit tanimlanip baslangicta 0 degeri atanir butonlara basılınca bu değere 1 atanır böylece sorun çözülmüş olur, ama kendi çalışmamda o kodlar olmadan da sorun çıkarmadı uyarı verdi butona yönlendirdi.
Hangi koşullarda X aktif oluyor ki?
29/05/2020, 23:16

m_demir

Hocalarım ikinize de çok, çok teşekkürler.
Sorunumu çözdüğünüz için konuyu taşıyabilirsiniz. Saygılarımla.
29/05/2020, 23:24

feraz

(29/05/2020, 22:50)berduş yazdı: Modulde sabit tanimlanip baslangicta 0 degeri atanir butonlara basılınca bu değere 1 atanır böylece sorun çözülmüş olur, ama kendi çalışmamda o kodlar olmadan da sorun çıkarmadı uyarı verdi butona yönlendirdi.
Hangi koşullarda X aktif oluyor ki?
Modülde public olarak tanımlansa bile quit yada close olayından dolayı sıfır sonuç dönderiyordu.Bu yüzden txt hazırlamak zorunda kaldımki hafızadan silinmesin diye.Yani excelin çarpıdan kapatma olayı olmasa dediğiniz tanımlama olur.Sıfır olma olayını F8 ile adım adım ilerlerseniz gözlemleyebilirsşn abey.
Ayrıca sıfır butona tıklayınca zaten 1 olarak atıyor lakin kod çalışınca sıfır oluyor ikinci befor_close çalışıp ilkinde 1 oluyor.

Ayrıca orjinal dosyada c klasörüne yedek adında klasör oluşturuluyor bende onun içine txt dosyası eklettim içine 0,1 ve 2 olarak veriler geliyor duruma göre.Öncedende yazdığım gibi salt okunur olarak çalıştırmadım ama gifteki gibi sonuç hatalı olmuyor.
1 2 3 4 5 6 7 8 9 10 11 12 13