hücredeyken sağ klik

[MOONROSE]

Merhaba,
hücrede sağ klik yapıldığında standart başlıkların (copy,paste v.s.) yok olmasını onların yerine aşağıdaki başlıkların ve action'ların olmasını istiyorum. Bunun için nasıl bir ekleme yapmam gerekiyor.elimde yine bu siteden aldığım sağ klikteki menüleri yok etme kodları var ama birleştiremedim. Sağ klikte sadece aşağıdaki başlıkların görünmesi için yardımınızı rica ederim.

Private Sub Workbook_Open()
Dim TABANFORM As CommandBarControl
Dim SIPARISFORM As CommandBarControl

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)

On Error Resume Next
Application.CommandBars("Cell").Controls("TABAN MODEL FORMU").Delete
Application.CommandBars("Cell").Controls("SIPARIS FORMU").Delete

End Sub

 

[Haluk]

ThisWorkbook modulune yerleştirilecek kodlar:

Private Sub Workbook_Open()
    Dim TABANFORM As CommandBarControl
    Dim SIPARISFORM As CommandBarControl
    
    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

Bu arada, projenizde Module1 adlı bir modül ve içinde de den ve GEN isimli prosedurlerin olması gerekir ...