Ã?ZEL MENÜ
merhaba arkadaşlar,
oluşturmuş olduğum kitap açıldığında bana özel veya o kitaba özel menüler gelsin istiyorum. bunun için bir çalışma yaptım gayet güzel çalışıyor. fakat kitabı her kapatıp açtığımda butonlara atadığım makrolar kayboluyor. bu durumu nasıl aşabilirim.
kodlar aşağıdaki gibidir;
Sub MenüEkle()
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Stok Takip"
.Tag = "MyTag"
.BeginGroup = True
.TooltipText = "Stok Takip Program Menüsü"
End With
If cbMenu Is Nothing Then Exit Sub
'******************************************************************
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ana Sayfa"
.FaceId = 1016
End With
'*****************************************************************************
'Stok İşlemleri
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kayıt Giriş"
.FaceId = 1014
End With
'Raporlar
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "Raporlar"
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bekleyenler"
.FaceId = 1745
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bitenler"
.FaceId = 1110
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İptaller"
.FaceId = 1100
End With
iyi çalışmalar,
merhaba arkadaşlar,
oluşturmuş olduğum kitap açıldığında bana özel veya o kitaba özel menüler gelsin istiyorum. bunun için bir çalışma yaptım gayet güzel çalışıyor. fakat kitabı her kapatıp açtığımda butonlara atadığım makrolar kayboluyor. bu durumu nasıl aşabilirim.
kodlar aşağıdaki gibidir;
Sub MenüEkle()
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Stok Takip"
.Tag = "MyTag"
.BeginGroup = True
.TooltipText = "Stok Takip Program Menüsü"
End With
If cbMenu Is Nothing Then Exit Sub
'******************************************************************
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ana Sayfa"
.FaceId = 1016
End With
'*****************************************************************************
'Stok İşlemleri
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kayıt Giriş"
.FaceId = 1014
End With
'Raporlar
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "Raporlar"
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bekleyenler"
.FaceId = 1745
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bitenler"
.FaceId = 1110
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İptaller"
.FaceId = 1100
End With
iyi çalışmalar,