Klasörü makro ile çarpıdan kapatma

[ASLAN7410]

Merhaba hayırlı geceler.

Bir klasör içerisinde makrolu excel dosyam var, ben bu excel
dosyamı açtığımda aktif olan bu klasör otomatik kapansın.

Forumde ve nette bu şekilde hiç bir çalışma bulamadım.

Böyle bir şey yapılabilir mi?

 

[muygun]

Merhaba;
"bu klasör otomatik kapansın." İbaresi ile klasörün gizlenmesini istiyorsanız ekleri deneyin.
Dosyanın olduğu klasör butonla yada açılışta hidden (gizli) olur.
Kodlar Alıntıdır.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun ilginiz için çok teşekkür ediyorum.

Kodlar gayet güzel çalışıyor. Benim istediğim gizle göster şeklinde değildi.

Sadece açık olan klasörün kapanması idi.

 

[muygun]

Aynı dosyanın tekrar açılabilmesi , yada klasörün gözlenmesi için aç-kapat butonu koydum.
Siz kullanımınıza göre düzenler yada butonu kaldırırsınız.

 

[ASLAN7410]

Sayın muygun anlatamadım galiba kusura bakmayın, açık olan klasörü makro ile çarpıdan kapatma şeklinde istemiştim.

Klasörün içindeki excel dosyasını açınca, arka tarafta açık kalan bu klasör otomatik kapansın.

 

[PLİNT]

Sayın muygun anlatamadım galiba kusura bakmayın, açık olan klasörü makro ile çarpıdan kapatma şeklinde istemiştim.
Klasörün içindeki excel dosyasını açınca, arka tarafta açık kalan bu klasör otomatik kapansın.

Merhaba
Yoksa; bir modül ekleyip şağıdaki gibi deneyin.

[SIZE="2"]Sub auto_open()
    a = ThisWorkbook.Path
    Set b = CreateObject("shell.application")
    For Each c In b.Windows
        If c.document.folder.self.Path = a Then c.Quit
    Next
End Sub [/SIZE]

 

[ASLAN7410]

Sayın PLİNT çok teşekkür ederim, tam istediğim oldu.
Ellerinize sağlık hayırlı günler hayırlı çalışmalar diliyorum.

 

[Tevfik_Kursun]

Sayın Muygun ve Sayın Plint,
makrolar için teşekkür ederim.
Saygılarımla