VBA Excel - Desabilitando os Menus - 2003/2007

Hello Folks!

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

Google Talk: bernardess@gmail.com
Skype: inanyplace
MSN: bernardess@gmail.com

Nenhum comentário:

Postar um comentário

diHITT - Notícias