Excel de menu uygulaması

[selo1234]

mehaba,
excel menu bar a aşağıdaki kod ile menu koydum.
Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup)

ancak, bu menu ilavesi tüm açık excel lere konuyor.
Sadece , ilişkili workbook da gözükmesini sağlamak mümkün mü acaba?
Bu durum hem kullanıcıyı şaşırtıyor, hem de başka bir excel den çalıştırlmaya çalışıldığında problem çıkartabiliyor.
Yardımlaşmalarınız için şimdiden teşekkürler

 

[cetinkarli]

CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True) _
.Caption = "Sayfa seç..."

With CommandBars(1).Controls("Sayfa seç...")
.BeginGroup = True
.TooltipText = "Sayları seçer"
For i = 1 To Worksheets.Count
.Controls.Add(Type:=msoControlButton).Caption = Worksheets(i).Name
.Controls(Worksheets(i).Name).OnAction = "SayfaSec"
.Controls(Worksheets(i).Name).FaceId = 1954
.Controls(Worksheets(i).Name).Tag = i
Next
End With

Bide Böyle Dene Kardeş

 

[selo1234]

Desteğiniz için teşekkürler ama olmadı.
Benim isteğim, bir excel dosyasına menu eklediğim de diğer açık dosyalara da ekliyor bunu istemiyorum. Aynı zamanda ,başka bir excel dosyası kapattığımda, açık olan menu eklenmiş dosyanın da menüsünü siliyor.Yani hem ekleme hem de silme tüm açık excel lere uygulanıyor. ben bunu engellemeye çalışıyorum.