menü ve alt menü kodlarını nasıl görebiliriz

[uzmanamele]

merhaba

Sub Makro1()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
End Sub

Sub Makro2()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
MsgBox "cb'nin ID kodu ve hangi menü adı = "
Next cb
End Sub

menülerin ID kodlarını nasıl görebiliriz?
örneğin biçim menüde: hücre, satır, sütun vs ID kodlarını nasıl görebiliriz? bazılarını iptal ettirmek istiyorum.

 

[uzmanamele]

Sub biçim_göster()
'menü barda biçim menüsü
Application.CommandBars("Worksheet Menu Bar").Controls(5).Visible = True
End Sub

Sub biçim_gizle()
'menü barda biçim menüsü
Application.CommandBars("Worksheet Menu Bar").Controls(5).Visible = False
End Sub

biçim menüde: hücre, satır, sütun vs ID kodlarını nedir?

 

[Merhum İdris SERDAR]

Ekteki dosya işinize yarayabilir.

.

 

[Ferhat Pazarçevirdi]

Gerçi Microsoft'un sitesinde id listesi var ama (bkz List of ID numbers for built-in CommandBar controls in Excel 2000) sanırım 2000 versiyona ait ...

Aşağıdaki kodu boş bir Excel sayfasında çalıştırınız.

Sub Menu_Elemanlari()
    Dim cb As CommandBar
    Dim con As CommandBarControl
    Dim i As Integer
    For Each cb In Application.CommandBars
        i = i + 1
        Cells(i, 1) = cb.Index
        Cells(i, 2) = cb.Name
        Cells(i, 3) = cb.NameLocal
        For Each con In cb.Controls
            i = i + 1
            Cells(i, 4) = con.Index
            Cells(i, 5) = con.Caption
            Cells(i, 6) = con.ID
        Next
    Next
End Sub

 

[uzmanamele]

merhaba
syn Yurttaş ve Ferhat bey çok teşekkür ederim.