standart araç çubuğu dosya açılınca açılsın kapanınca kapans

[S.K.]

standart araç çubuğu veya herhangi bir araç çubuğu , sadece bir çalışma kitabına mahsus çalışma kitabı açılınca açılıp kapanınca da kapanabilir mi? yani yeni bir çalışma kitabı açtığımızda standart araç çubuğu görünmesin istiyorum. böyle bişey mümkün mü, kod yazarak halledebilir miyiz acaba?
yardımlarınızı bekliyorum...

 

[S.K.]

lütfen yardım edin çok acil!!!

 

[Levent Menteşoğlu]

Dosya kapanışında menüleri gizlemek için

[vb:1:1480ca4645]Sub auto_close()
For a = 1 To CommandBars.Count
Application.CommandBars(a).Enabled = False
Next
End Sub
[/vb:1:1480ca4645]

Dosya açılışında menüleri göstermek için

[vb:1:1480ca4645]Sub auto_open()
For a = 1 To CommandBars.Count
Application.CommandBars(a).Enabled = True
Next
End Sub[/vb:1:1480ca4645]

 

[S.K.]

öncelikle teşekkürler
bu yaptığınızı denetim araç kutusu seçeneği için yapabilir misiniz?

 

[Levent Menteşoğlu]

bu yaptığınızı denetim araç kutusu seçeneği için yapabilir misiniz?

Bundan kastınız nedir anlayamadım. Yani sadece denetim araç kutusunumu gizleyip açmak istiyorsunuz.

 

[S.K.]

bir çalışma kitabına bana özel üzerine makrolar atadığım bir araç çubuğu ekledim, ama başka dosyaları da açınca bu araç çubuğu aktif şekilde açılıyor. ben kendi oluşturduğum araç çubuğunun sadece o çalışma kitabında görünmesini istiyorum. başka çalışma kitabını açtığımda benim araç çubuğu gizlensin.
her excel açtığımda onu pasif aktif yapmaktan kurtulmak istiyorum...

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin. Burada "yeni" yerine kendi menünüzün adını yazın.

[vb:1:ed4e8076c4]Sub auto_close()
Application.CommandBars("yeni").Visible = False
End Sub

Sub auto_open()
Application.CommandBars("yeni").Visible = True
End Sub[/vb:1:ed4e8076c4]

 

[S.K.]

maalesef , dediğiniz gibi yaptım ama olmadı
size zahmet olmazsa örnek bir çalışma gönderebilirmisiniz acaba?

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.