Скрытие сетки во всей книге

[zIP]

Вставляю в книгу на событие Workbook_Open

Код: Выделить всё

    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With


На первой странице все нормально, но вот на последующих сетка и заглавия колонок отображаются.

Как можно сделать, чтобы при вызове процедуры при открытии книги, работало сразу на всех листах? Или придеться вставлять ручками?

Полностью это выглядит так(может что-то взаимоисключается)

Код: Выделить всё

Private Sub Workbook_Open()
Dim CmdBar As CommandBar
For Each CmdBar In Application.CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
Application.DisplayFormulaBar = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection

   
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
Sheets("Главная").Select
End Sub

[Genyaa]

Может быть я не совсем верно понял... но вот, если сделать так, то любой активируемый лист будет без сетки и всего остального (вроде Вы именно об этом спрашиваете):

Код: Выделить всё

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
End Sub

Т.е. сброс видимости тех или иных элементов будет происходить при активации любого листа. (Обработчик события должен размещаться в модуле книги.)