Настраиваемые панели инструментов - VB

Формулировка задачи:

Как скрыть все настраиваемые панели инструментов? (VBA MS Excel 2007)
Для какой-то определенной я могу это сделать путем:
CommandBars("Панелька").delete
а как скрыть 1 строчкой сразу все, не знаю.
Очень нужно хелп плиз

Решение задачи: «Настраиваемые панели инструментов»

textual
                            Листинг программы 
                        
                            <font color="blue">Dim</font> cb <font color="blue">As</font> CommandBar: <font color="blue">For</font> <font color="blue">Each</font> cb <font color="blue">In</font> CommandBars: <font color="blue">If</font> <font color="blue">Not</font> cb.BuiltIn <font color="blue">Then</font> cb.Visible = False <font color="blue">End</font> <font color="blue">If</font>: <font color="blue">Next</font>