Bir excel uygulamasını sadece kodlarla gizlemek ve göstermek

[Mahmut Kök]

Application.visible=false şeklinde gizlenen bir excel uygulaması, başka bir excel belgesi açıldığında ortaya çıkıyor. Benim yapmak istediğim şey;

set uygulama=createobject ("excel.application")

uygulama.visible=false


diye tanımlayıp gizlediğim bir excel uygulamasının, herhalgi bir excel belgesi açıldığında gözükür hale gelmemesini, açılacak olan excel belgelerinin, farklı bir excel uygulamasıyla açılmasını sağlamak istiyorum. Benim uyuglamamın sadece

uygulama.visible=true dediğimde ortaya çıkmasını istiyorum. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[Haluk]

Tam olarak anlamadım ama, aşağıdaki gibi olmuyor mu ?

Dim uygulama As Object
'
Sub Test()
    Set uygulama = CreateObject("excel.application")
    uygulama.Visible = False
End Sub
'
Sub Test2()
    uygulama.Visible = True
End Sub
'
Sub Test3()
    uygulama.Visible = False
End Sub

 

[Mahmut Kök]

Daha açık ifade etmek gerekirse,

set uygulama=createobject ("excel.application")

uygulama.workbooks.open "c:/1.xls"

ile, dosyamı açıyorum. Ve kodlarla hem uygulamayı hem de kitabı gizliyorum. Ancak, bu sırada başka bir excel belgesi açıyorum ve excelden çıktığımda, gizli olarak açtığım c:/1.xls de kapanıyor. Yani, sonradan açtığım excel belgesi de benim tanımladığım excel uygulamasını kullanıyor. Tanımladığım 'uygulama'nın diğer excel belgeleri için kullanılmamasını sağlamak istiyorum. Şimdiki durumda, kullanıcıların açtığı excel belgeleri, programımı doğrudan etkilemiş oluyor. Umarım anlatabilmişimdir. İlginize teşekkürler.

 

[Haluk]

Hmmm... anladım.

Ama ne yapılabilir, şu anda aklıma bir şey gelmiyor.

 

[Mahmut Kök]

Bu soru geçerliliğini koruyor... Fikir verebilecek arkadaşların yardımlarını bekliyorum. İyi çalışmalar.