GBKEE

¦^´_ 5# PKKO
2010 ª©

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i, ii, x, e
   
4.     For i = 1 To Application.CommandBars.Count
   
5.         If Application.CommandBars(i).Type = msoBarTypePopup Then
   
6.             x = x + 1
   
7.             Cells(x, 1) = Application.CommandBars(i).Name
   
8.             Cells(x, 2) = Application.CommandBars(i).NameLocal
   
9.             Cells(x, 3) = Application.CommandBars(i).ID
   
10.             ii = 1
    
11.             For Each e In Application.CommandBars(i).Controls
    
12.                 If InStr(e.Caption, "§R°£(&D)...") Then
    
13.                     Cells(x, ii + 3) = e.Caption
    
14.                     Cells(x, ii + 4) = e.ID
    
15.                 End If
    
16.             Next
    
17.         End If
    
18.     Next
    
19. End Sub
    
20. Sub Ex1()
    
21. Dim Bar As CommandBarControls, xId As Integer, A As Variant
    
22.     xId = 292 '293,294   ¬Ý¬Ý¬O­þ¤@­Óid
    
23.     Application.CommandBars.FindControls(ID:=xId).Item(1).Enabled = False
    
24.     Set Bar = Application.CommandBars.FindControls(ID:=xId)
    
25.     '************************À³ÃÒ EXµ{¦¡  Id = 292,293,294  §ä¨ìªº "§R°£(&D)..."
    
26.     For Each A In Application.CommandBars.FindControls(ID:=xId)
    
27.         Debug.Print A.Caption, A.ID
    
28.     Next
    
29.     '*********************
    
30.     Stop   '¬Ý¬O§_¤w°±¤î¨Ï¥Î
    
31.     Application.CommandBars.FindControls(ID:=xId).Item(1).Enabled = True  '«ì´_¨Ï¥Î
    
32. 
    
33. End Sub
    
34. Sub Exe()
    
35.   Application.CommandBars("CELL").Reset
    
36. End Sub

½Æ»s¥N½X