EXCEL VBA：功能表與工具列

=======================================================
 Sub 在即時運算視窗秀出所有功能表、工具列名稱()

    Dim oBar As CommandBar
    
    For Each oBar In Application.CommandBars
      Debug.Print oBar.Name
    Next
End Sub
----------------------------------------------------------------------------------
結果如下(功能表、工具列名稱)：
Worksheet Menu Bar  ------------------>功能表
Chart Menu Bar
Standard     ------------------>一般
Formatting   ------------------>格式          
PivotTable
Chart
Reviewing
Forms
Stop Recording
External Data
Formula Auditing
Full Screen
Circular Reference
Visual Basic
Web
Control Toolbox
Exit Design Mode
Refresh
Watch Window
PivotTable Field List
Borders
Protection
Text To Speech
List
Compare Side by Side
Drawing
WordArt
Picture
Drawing Canvas
Organization Chart
Diagram
Ink Drawing and Writing
Ink Annotations
PivotChart Menu
Workbook tabs
Cell
Column
Row
Cell
Column
Row
Ply
XLM Cell
Document
Desktop
Nondefault Drag and Drop
AutoFill
Button
Dialog
Series
Plot Area
Floor and Walls
Trendline
Chart
Format Data Series
Format Axis
Format Legend Entry
Formula Bar
PivotTable Context Menu
Query
Query Layout
AutoCalculate
Object/Plot
Title Bar (Charting)
Layout
Pivot Chart Popup
Phonetic Information
Auto Sum
Paste Special Dropdown
Find Format
Replace Format
List Range Popup
List Range Layout Popup
XML Range Popup
List Range Layout Popup
Shadow Settings
3-D Settings
Borders
Borders
Draw Border
Chart Type
Pattern
Font Color
Fill Color
Line Color
Drawing and Writing Pens
Annotation Pens
Drawing and Writing Pens
Annotation Pens
Order
Nudge
Align or Distribute
Rotate or Flip
Lines
Connectors
AutoShapes
Callouts
Flowchart
Block Arrows
Stars & Banners
Basic Shapes
Insert Shape
Shapes
Inactive Chart
Excel Control
Curve
Curve Node
Curve Segment
Pictures Context Menu
OLE Object
ActiveX Control
WordArt Context Menu
Rotate Mode
Connector
Script Anchor Popup
Canvas Popup
Organization Chart Popup
Diagram
Layout
Select
符號表
Task Pane

Add Command
Built-in Menus
Clipboard
Envelope
Online Meeting

===================================================



'關閉功能表、工具列
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""工具列名稱"",False)"

 '功能表、工具列無法使用
Application.CommandBars("功能表、工具列名稱").Enabled=False 
Application.CommandBars("功能表、工具列名稱").Enabled = True