Demo program

Katılım
7 Temmuz 2004
Mesajlar
48
Merhaba

Demo bir program tasarlıyorum.Dosya 15 açılış sonrası otomatik kapanacak ve veriler silinecek veya açılmayacak.
Auto_open kısmına hangi kodlar gerekir.Ben bazı şeyletr yaptım ama olmadı...

birde kes/kopyala/yapıştır komutlarını iptal ettiğimde diğer excel dosyalarıda etkileniyor.Buda çok kötü bir durum oluşturuyor.

Bu konuda yardımlarınız olursa çok teşekkür ederim.
 
Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
merhaba,
Auto_open kısmına belirli bir hücrenin artımını yaptırın.
örneğin [Z1] hücresi, ve bu hücre kullanıcı tarafından silinemesin kouyun.
açılışta ,

[Z1]=[Z1]+1
if [Z1]>15 then application.quit

bu mantıkta kodunuzu yazrak ihtiyacınızı halledersiniz
,
ikinci sorunuz için de
bu işlemleri iptal etme işini Activeworkbook.name kontrolunü sorgulatarak yapabilirsiniz.
örneğin.

if Activeworkbook.name="benim dosyam " then
'kes,kopyalayı iptal eden komutlar
else
'kes kopyalayı geri getiren komutlar
end if

mantığında yazmalısınız.
 
Katılım
7 Temmuz 2004
Mesajlar
48
merhaba

Cevaplarınız için çok teşekkürler...

1.nci cevap: Dediğiniz gibi bir uygulama yapacağım ancak şu makro güvenlik seviyesi yükseğe alındığında sanırım yine çalışmayacak.

2.nci cevabınız için ise bu bahsettiğiniz "Activeworkbook.name " kontrolunu herhangi bir modul sayfasınamı ,auto_open olayınamı yoksa VBA sayfasındaki "This workbook" kısmınamı yazacağım.

Tekrar çok teşekkürler
 
Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
1. cevap..
güvenlik seviyesi engelini aşmak için sayfayı şifrelersiniz,
hücfreler gizi ve kitli olur ,
makro çalışmadığı müddetçe bu sayfalar açılmaz.
bence bu yeteri kadar uygun bir korumadır.

2.
birde kes/kopyala/yapıştır komutlarını iptal ettiğimde diğer excel dosyalarıda etkileniyor.
sizin bu iptal işini yaptığınız yerde veya
Workbook_WindowDeactivate olayında kes/kopyala/yapıştır komutlarını aktif edersin,
Workbook_WindowDeactivate olayında pasif edrsin.
 
Katılım
7 Temmuz 2004
Mesajlar
48
Merhaba

Kısa ve etkili çok güzel çözümler sundunuz.

Gerçekten tebrikler ve teşekkürler
 
Katılım
20 Ocak 2007
Mesajlar
112
Excel Vers. ve Dili
excel-2003 türkçe
Merhaba

Auto_open kısmına nasıl ulaşacağız?
 
Katılım
15 Ocak 2007
Mesajlar
791
Excel Vers. ve Dili
2003 excel visual basic
vba

alt + F8 ve auto_open çıkar karşına ve düzenle dersen kodun içine girebilirsin...
 
Üst