表示されているコマンドバーの名前を取得するには、CommandBarオブジェクトの
Visibleプロパティを使用します。
　サンプルプロシージャは、表示されているコマンドバーの名前をメッセージボックスで
表示します。

● 準備 ●

　標準モジュールにサンプルプロシージャを作成してください。

● サンプル　●

Sub Sample()
    Dim cb As CommandBar

    For Each cb In CommandBars
        If cb.Visible = True Then
            MsgBox cb.Name
            MsgBox cb.NameLocal
        End If
    Next cb

End Sub

● 補足説明 ●

(1)OfficeコマンドバーオブジェクトモデルをAccess2000VBAで使用するためには、
　 [ツール]メニューの[参照設定]をクリックして、[Microsoft Office 9.0 Object Library]
　 の横のチェックボックスをオンにして、Officeオブジェクトライブラリへの参照を設定する
　 必要があります。

(2)組み込みのコマンドバーでは、Nameプロパティの戻り値はコマンドバーの英語名になります。
　 ローカライズされた名前を取得するには、NameLocalプロパティを使用します。

　 【例】　Database　→　データベース
　 　　　　MenuBar　 →　メニューバー