Kitap açıldığında Menü Açılsın

[DeliBalta58]

Çalışma kitabım açıldığında yüklenen menü nün üzerine tıklanmış gibi açılması için yardımcı olabilirmisiniz?
Resim ekte.
Kitap açıldığında Resimdeki gibi olmalı.

 

[Recep İpek]

Menü oluşturma kodlarınızın en altına aşağıdaki satırı ekleyin.

CommandBars.ActiveMenuBar.Controls("MenüAdı").Execute

 

[DeliBalta58]

uzmanım hata verdi. Verdiğiniz kodu yanlış yeremi koydum.Yada isimmi yanlış.
kodlar aşağıda

Dim cbmenu, cbsubmenu As CommandBarControl
Public Sub menu()
Set cbmenu = Application.CommandBars(1).Controls.Add( _
msoControlPopup, , , , True)
With cbmenu
.Caption = "&Ensar_V2 Menü"
.Tag = "baslik"
.BeginGroup = False
End With
If cbmenu Is Nothing Then Exit Sub
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Kod Bilgi Girişleri"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ekonomik Kodları"
.OnAction = "ekonomik_kodlar"
.FaceId = 855
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Hesap Kodları"
.OnAction = "hesap_kodlari_ac"
.FaceId = 855
End With
 
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Kurum"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kurum Parametreleri"
.OnAction = "kurum_formu"
.FaceId = 855
End With
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Personel İşlemleri"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Personel İşlemleri"
.OnAction = "personel_islemleri"
.FaceId = 855
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tedavi Yolluğu"
.OnAction = "tedavi_yollugu"
.FaceId = 855
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Geçici Görev Yolluğu"
.OnAction = "g_g_yollugu"
.FaceId = 855
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tayin Yolluğu ( Sürekli Görev Yolluğu )"
.OnAction = "tayin_yollugu"
.FaceId = 855
End With
 
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İlaç Ödemesi"
.OnAction = "ilac_odemesi"
.FaceId = 855
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Sağlık Malzemesi Ödemesi"
.OnAction = "saglik_mlz_odemesi"
.FaceId = 855
End With
 
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Melbusat Listesi"
.OnAction = "melbusat"
.FaceId = 855
End With
 
 
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Eczane"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eczane Parametreleri"
.OnAction = "eczane_parametreleri"
.FaceId = 855
End With
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Hastane"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Hastane Parametreleri"
.OnAction = "hastane_parametreleri"
.FaceId = 262
End With
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Telefon"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Telefon Ödemeleri"
.OnAction = "telefon_odemeleri"
.FaceId = 262
End With
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Elektrik"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Elektrik Ödemeleri"
.OnAction = "elektrik_odemeleri"
.FaceId = 262
End With
Set cbsubmenu = cbmenu.Controls.Add(msoControlPopup, 1, , , True)
With cbsubmenu
.Caption = "Su"
End With
With cbsubmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Su Ödemeleri"
.OnAction = "su_odemeleri"
.FaceId = 262
End With
 
With cbmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eczane Listesi"
.OnAction = "eczane_listesi"
.FaceId = 247
.BeginGroup = True
End With
With cbmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tahakkuk Teslimi Aç"
.OnAction = "tahakkuk_teslime_bak"
.FaceId = 247
.BeginGroup = True
End With
With cbmenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Tahakkuk Teslimi Temizle"
.OnAction = "tahakkuk_teslimi_temizle"
.FaceId = 247
.BeginGroup = True
End With
[COLOR=red]CommandBars.ActiveMenuBar.Controls("&Ensar_V2 Menü").Exec ute[/COLOR]
End Sub

 

[Recep İpek]

.Exec ute yazısını .Execute olarak deneyebilirmisiniz?
Normalde bitişik.Fakat ben mesaja kopyalayınca arada boşluk çıkmış.

 

[DeliBalta58]

teşekkürler