Excel uygulamalarıma naptınız ?

[Amaxx]

arkadaşlar burada bulunan örnek programların bazılarını açtığımda bütün excel uygulamalarımı kapatıyor ve bir daha açamıyorum yada salt okunur açabiliyorum, napmam lazım

 

[Zeki Gürsoy]

Hangi dosyalardır?

 

[karadami]

application visible=false
olan dosyalari actiginizda bu basiniza gelir. dosyayi actiginizda macrolari devre disi birak secenegini secin ve dosyayi actiktan sonra kodlardan
application visible=true olarak degistirip tekrar kaydettikten sonra acin.

 

[Amaxx]

yaw ben de görev yöneticisinden arıyorum açık excel dosyalarım nerde diye,

teşekkür ederim...

 

[Amaxx]

Peki bahsettiğim bu excel programlarını tüm excel çalışmaları değil de sadece çalıştığımız excel dosyasını kapatsa! nasıl olur? yapılabilir mi? Daha açık şekilde anlatayım...

Örneğin benim programım a.xls dosyası
aynı zamanda bilgisayarımda b.xls, c.xls dosyaları da açık. Bu b ve c dosyaları kapanmadan a dosyasının uygulamasını kapatabilir miyiz?

 

[Seyit Tiken]

Kodu ThisWorkbook'a yapıştırarak deneyiniz.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
For s = 1 To Application.CommandBars.Count
Application.CommandBars(s).Enabled = 0
Next
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
For s = 1 To Application.CommandBars.Count
Application.CommandBars(s).Enabled = 1
Next
End Sub

 

[Amaxx]

çok teşekkürler