Ir para o conteúdo
jnabais

Esconder Menus no Excel 2007

Mensagens Recomendadas

jnabais    0
jnabais

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
pedromgantunes    0
pedromgantunes

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade