Выключить панели инструментов

В предыдущем примере мы с Вами импортировали модуль «Настройка.bas».  Далее дается описание программы, которая есть в этом модуле. Назначение ее - выключить все панели инструментов, чтобы они не мешали работе Калькулятора.

Public Sub subBarOff()

Dim cbr As CommandBar

    Application.SetOption "Строка состояния", False 'Гасим строку состояния

    For Each cbr In Application.CommandBars 'Проверяем все панели

        If cbr.Visible = True Then 'Проверяем отображение

            DoCmd.ShowToolbar cbr.Name, acToolbarNo 'Гасим панель

        End If

    Next cbr

End Sub