Como apresentar com Tela Cheia as informações de somente uma Pasta de Trabalho?

Question

Criei uma macro para apresentar as informações da Pasta de trabalho A em tela cheia na hora que o usuário acessa a mesma. Porém quando este usuário vai abrir a Pasta de trabalho B está também aparece em tela cheia. Qual comando para deixar em tela cheia somente a Pasta de trabalho A?

Segue a Sub usada:

Sub FullScreen()

'Ocultar Todas as Barras

    With ActiveWindow

        .DisplayHeadings = False

        .DisplayHorizontalScrollBar = True

        .DisplayWorkbookTabs = False

        .DisplayVerticalScrollBar = True

    End With

  ' Apresentar em tela cheia     Application.DisplayFullScreen = True

    Dim Barramenu As Variant

    contador = 1

    For Each Barramenu In Application.CommandBars

    If contador = 120 Then GoTo pular

        With Application.CommandBars(contador)

            .Enabled = False

        End With

pular:

        contador = contador + 1

    Next

    'Ocultar Barra de Fórmulas

    Application.DisplayFormulaBar = False

    Application.DisplayStatusBar = True

    'Substituir Teclas

    Application.OnKey "%{F4}", ""

    Application.OnKey "^{F4}", ""

    Application.OnKey "%{F8}", ""

    Application.OnKey "%{F11}", ""

    Application.OnKey "^{TAB}", ""

    Sheets("Follow 4G").Select

    ActiveWindow.FreezePanes = False

    Rows("1:65535").Select

    Selection.EntireRow.Hidden = False

    Rows("4500:65535").EntireRow.Hidden = True

    Range("A11").Select

    Columns("A:A").Select

    Selection.EntireColumn.Hidden = True

    Columns("E:I").Select

    Selection.EntireColumn.Hidden = True

    Columns("K:M").Select

    Selection.EntireColumn.Hidden = True

    Columns("O:P").Select

    Selection.EntireColumn.Hidden = True

    Columns("T:AL").Select

    Selection.EntireColumn.Hidden = True

    If Sheets("Follow 4G").AutoFilterMode = False Then

    Range("A10:AQ10").Select

    Selection.AutoFilter

    End If

    Application.Goto Range("B1"), True

    'Range("11:11").Select

    Range("B11").Select

    ActiveWindow.FreezePanes = True

    Range("B11").Select

End Sub

Answer 1

Você deve colocar esse código nos eventos de Pasta de Trabalho.

Suponha que você queira que a Pasta de Trabalho A seja a que terá os menus ocultos, e aB seja qualquer outra que deva funcionar com a visualização normal do Excel. Você deverá colocar emA no evento Private Sub Workbook_Activate() a sua rotina acima. No entanto, no eventoPrivate Sub Workbook_Deactivate() da mesma Pasta de Trabalho, você deve colocar uma rotina para restaurar as configurações do Excel.

A idéia é que quando se ativa a Pasta de Trabalho, os menus são ocultos. Quando ela perde o foco, as configurações do Excel são restauradas, etendeu?

Answer 2

Maravilha Felipe / Danilo (sou novo aqui então devo agradeço aos dois certo?),

Funcionou certo dessa forma.

Obrigado pela ajuda.

Answer 3

Olá Felipe,

Você está correto deveria ter dito Pasta de Trabalho.

Quando digo "Planilha" quero dizer "Pasta de Trabalho", Obrigado.

Answer 4

Quando você diz Planilha, se refere à uma guia ou a uma outraPasta de Trabalho?