Страницы: 1
RSS
Макрос отключения/изменения характеристик вкладки Вид (Обычный режим просмотра книги, Сетка, Строка формул, Заголовки)
 
Уважаемые форумчане, здравствуйте!
Помогите пожалуйста в написании следующего макроса - отключения/изменения характеристик вкладки Вид, а именно: перевести книгу в - Обычный режим просмотра книги, убрать Сетку, убрать Строку формул, убрать Заголовки)
Кто ясно мыслит, тот ясно излагает.
 
Код
    ActiveWindow.View = xlPageLayoutView
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    
    
    ActiveWindow.DisplayGridlines = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.View = xlNormalView
 
Макрорекордер вот чего записал:
Код
Sub Макрос1()
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
End Sub
Sub Макрос2()
    ActiveWindow.DisplayGridlines = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.View = xlNormalView
End Sub
Пробуйте.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
МатросНаЗебре, Конь, Благодарю.
Про макрорекордер я благополучно забыл.
Кто ясно мыслит, тот ясно излагает.
 
Друзья, а как бы мне поправить макрос, чтобы Отключение отображения сетки и Отключение отображения заголовков распространялось не только на активный лист, но и на всю активную книгу?

 
Код
 'Отключение отображения сетки
    ActiveWindow.DisplayGridlines = False
    'Отключение отображения заголовков
    ActiveWindow.DisplayHeadings = False
Кто ясно мыслит, тот ясно излагает.
 
Код
Sub Вид()
    Dim shActiveSheet As Worksheet
    Set shActiveSheet = ActiveSheet
    
    Dim wb As Workbook
    Dim sh As Worksheet
    For Each wb In Application.Workbooks
        For Each sh In wb.Sheets
            wb.Activate 'В этом цикле на случай случайного клика во время работы макроса.
            sh.Select
            With ActiveWindow
                .DisplayHeadings = False
                .View = xlNormalView
            End With
        Next
    Next
    
    shActiveSheet.Parent.Activate
    shActiveSheet.Select
End Sub
Страницы: 1
Наверх