Private Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        With .ActiveWindow
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
            .DisplayWorkbookTabs = Value
        End With
        .ScreenUpdating = True
    End With
End Sub
Private Sub Workbook_Open()
    ChangeInterface False
End Sub
Private Sub Workbook_Deactivate()
    ChangeInterface True
End Sub

Отличный макрос! Есть только один недостаток. При переходе с одного листа открытой книги на другой, а потом возврат на предыдущий - в верхней части экрана под заголовком окна появляется странная полоса. После выполнения последовательно макросов ВосстановитьИнтерфейс, УбратьВсё полоса пропадает, а потом снова появляется. Кроме того в Таблице настройки панелей инструментов появляется странное пустое окно выбора панели (без наименования, удалить которое невозможно. Можете что-либо прояснить по данному багу.

задан 10 Апр '12 18:44

изменен 11 Апр '12 9:56

Expert's gravatar image


51625

@Akberen, Это вопрос на форум ХэшКод.

(11 Апр '12 9:56) Expert

Здравствуйте

БитКод - это совместно редактируемый форум вопросов и ответов для продвинутых пользователей компьютерной техники.

Присоединяйтесь!

отмечен:

×48

задан
10 Апр '12 18:44

показан
998 раз

обновлен
11 Апр '12 9:56

Отслеживать вопрос

по почте:

Зарегистрировавшись, вы сможете подписаться на любые обновления

по RSS:

Ответы

Ответы и Комментарии

Дизайн сайта/логотип © «Сеть Знаний». Контент распространяется под лицензией cc by-sa 3.0 с обязательным указанием авторства.
Рейтинг@Mail.ru