ters tıklamadaki menüler kayıp

[burhancavus61]

hücre içerisinde ters tıklamadaki menüleri makro ile kaybettim geri çağıramıyorum yardımcı olursanız sevinirim

 

[burhancavus61]

bu makro ile kaybettim

menüleri aşağıdaki makro ile kaybettim nasıl geri çağıracağım açtığım bütün yeni kitaplarda menüler silinik çıkıyor


Private Sub Workbook_Open()
For i = Application.CommandBars("Cell").Controls.Count To 1 Step -1
Application.CommandBars("Cell").Controls(i).Delete
Next

Set TABANFORM = Application.CommandBars("Cell").Controls.Add
With TABANFORM
.Caption = "TABAN MODEL FORMU"
.OnAction = "Module1.den"
End With
'......................................................................
Set SIPARISFORM = Application.CommandBars("Cell").Controls.Add
With SIPARISFORM
.Caption = "SIPARIS FORMU"
.OnAction = "Module1.GEN"
End With
'......................................................................
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

 

[danersin]

sizin kodunuzda son makro bu iş için yazılmış ama ??!!!


siz başka bir kitapta sadece bunu çalıştırın..
Sub yenile()
CommandBars("Cell").Reset
End Sub

 

[burhancavus61]

teşekkürler

teşekkürler düzeldi kolay gelsin