Dosya menüsüne menü ilave edilmiş kitapta

[hsayar]

Dosya menüsüne menü ilave edilmiş kitapta teni kitap oluşturuldupunda menü o kitaptata oluyor ben olmasını istemiyorum ne yapmalıyım. menü sadece

Sub AutoOPen()
Call MenuEkle
End Sub

kodlarının olduğu kitapta çalışsın

 

[Korhan Ayhan]

Selamlar,

Çalışmanızın ThisWorkbook bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Kodlarda kırmızı ile belirttiğim kısımları eklediğiniz menü adıyla değiştirmeyi unutmayın.

Private Sub Workbook_Activate()
    Call AUTO_OPEN
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    CommandBars(1).Controls("[COLOR=red][B]YeniMenü[/B][/COLOR]").Delete
End Sub
Private Sub Workbook_Deactivate()
    On Error Resume Next
    CommandBars(1).Controls("[B][COLOR=red]YeniMenü[/COLOR][/B]").Delete
End Sub

 

[hsayar]

Teşekkür ederim hocam, aşağıdaki gibi işimi gördü

Private Sub Workbook_Activate()
    Call Ozelmenuekle
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Call OzelmenuKaldır
End Sub

Private Sub Workbook_Deactivate()
    On Error Resume Next
    Call OzelmenuKaldır
End Sub

[color="red"]Sub[/color] Ozelmenuekle()
'*Dosya işlem çubuğuna menü ekle
   With CommandBars(1).Controls.Add(msoControlPopup)
   '_____________________________________________
        .Caption = "&Ozel Menüm"
        With .Controls.Add(msoControlPopup)
...............
[code]

[code]
[color="red"]Sub[/color] OzelmenuKaldır()
'*Dosya işlem çubuğundan menüyü kaldır
    On Error Resume Next
    CommandBars(1).Controls("&Ozel Menüm").Delete
End Sub

fakat kırmızı sub ları Private sub ytapınca kodlar hata veriyor...
yapmayınca Makrolar iletişim kutusunda gözüküyor.
hem hata vermesin hemde makrolar iletişim kutusunda gözükmesin

mümkünmü?

 

[Haluk]

fakat kırmızı sub ları Private sub ytapınca kodlar hata veriyor...
yapmayınca Makrolar iletişim kutusunda gözüküyor.
hem hata vermesin hemde makrolar iletişim kutusunda gözükmesin

mümkünmü?

Modülün en üstünde ilk satır olarak aşağıdakini ilave edin ....

Option Private Module

 

[hsayar]

Teşekkür ederim taşım suyla bir program daha bitirdim....
Amaç;
Çalışma kitabımdaki sayfalar silinmesin, taşınmasın, yeniden adlandırılmasın ama
sayfa eklensin ve aynı kitaba veya başka kitaba kopyalansın diyenler için.
Biraz düzenleyeyim ekleyecem.

 

[hsayar]

http://www.excel.web.tr/showthread.php?goto=newpost&t=40360
incelemek isteyenlere...........


konu ile ilgili sorularım var gerçi onlarıda burada sorayım.
Bende neden hücre sağtuşuna menü eklenmiyor kodlar örnekte var?
Sayfa sekmelerine menü eklemek imkansızmıdır?

 

[asmirk]

Merhaba Aynı sorunu bende yaşıyorum excelimi eski haline döndüremiyorum bu konuda bana da yardım edebilir misiniz? exelimi eski haline döndürebilmem için ne yapmalıyım?