Sub Test()
 Dim i, p(50), ToolCount

  With Application
      MsgBox "ツールバーを非表示にします。"

    ToolCount = 0
    'カウンター変数の初期化

   For i = .CommandBars.Count To 2 Step -1

     If .CommandBars(i).Visible = True Then
       ToolCount = ToolCount + 1
       ' カウンター変数１ＵＰ

         p(ToolCount) = i

        .CommandBars(i).Visible = False
      '表示されていたら配列pにインデックスを書き込んで
      'そのコマンドバーを非表示にする｡

     End If
   Next i


   MsgBox "ツールバーを元に戻します。"

   For i = 1 To ToolCount

     .CommandBars(p(i)).Visible = True
       '配列pに書き込まれたインデックスを読み込んで
       'そのコマンドバーを表示する｡
   Next i

  End With
End Sub

※手作業でのやり方は・・
表示⇒ツールバー⇒ユーザー設定で目的のツールバーのチェックをはずします。