Para tornar as nossas aplicações mais profissionais e até mesmo impedir que os nossos "queridos usuários" utilizem alguma funcionalidade que não desejamos, costumamos tornar os menus principais indisponíveis.
Fazendo isso podemos "protegê-los" (e a nós mesmos) de alguns erros inoportunos.
Dica compartilhada pelo amigo Denis Ostorero
VERSÃO 2003
For Each Barras In Application.CommandBars
Let Barras.Visible = True ' Desabilita todas as barras do MS Excel.
Next
Restaurando...
For Each Barras In Application.CommandBars
Let Barras.Visible = True ' Re-habilita todos os Menus do MS Excel.Next
Next
VERSÃO 2007
With Application
Let .DisplayFormulaBar = False ' Desabilita o Menu de fórmula.
Let .DisplayStatusBar = False ' Desabilita o Menu de Status.
Let .DisplayFullScreen = True
Let .CommandBars("Full Screen").Visible = False
Let .CommandBars("Worksheet Menu Bar").Enabled = False
End With
Restaurando...
With Application
Let .DisplayFormulaBar = True ' Re-habilita o Menu de fórmulas.
Let .DisplayStatusBar = True ' Re-habilita o Menu de Status.
Let .DisplayFullScreen = False
Let .CommandBars("Worksheet Menu Bar").Enabled = True
End With
Nenhum comentário:
Postar um comentário