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

Содержание раздела

---