• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

jnabais

Esconder Menus no Excel 2007

3 mensagens neste tópico

Boa noite

Como posso esconder via VBA todos os menus do excel 2007 de forma a que a reposição dos mesmos seja apenas possível via VBA. (não esquecer a alternativa "restaurar" na barra superior).

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Penso que isto resolve

um faz com que os menus desapareçam e outro com que voltem ao normal.

Sub Sair()
Dim barras
On Error Resume Next
    For Each barras In Application.CommandBars
        barras.Enabled = True
    Next
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub



Sub Entrar()
    Dim barras, nTela, Cont
On Error Resume Next

    For Each barras In Application.CommandBars
        barras.Enabled = False
    Next
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = False
    

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora