VBA Excel - Retirando os menus

Termo de Responsabilidade

Hello Folks!

Para tornar as nossas aplicações mais profissionais e até mesmo impedir que os nossos "queridos usuários" utilizem algumas funcionalidades que não desejamos, costumamos tornar os menus principais das nossas aplicações indisponíveis.

Fazendo isso podemos "protegê-los" (e a nós mesmos) de alguns erros inoportunos.

Dica compartilhada pelo amigo Denis Ostorero (10 Ago 2009)

VERSÃO 2003

For Each Barras In Application.CommandBars

Barras.Visible = True ' Desabilita todas as barras do MS Excel.

Next

Restaurando...

For Each Barras In Application.CommandBars

Barras.Visible = True ' Re-habilita todos os Menus do MS Excel.Next

VERSÃO 2007

With Application

.DisplayFormulaBar = False ' Desabilita o Menu de fórmula.

.DisplayStatusBar = False ' Desabilita o Menu de Status.

.DisplayFullScreen = True

.CommandBars("Full Screen").Visible = False

.CommandBars("Worksheet Menu Bar").Enabled = False

End With

Restaurando...

With Application

.DisplayFormulaBar = True ' Re-habilita o Menu de fórmulas.

.DisplayStatusBar = True ' Re-habilita o Menu de Status.

.DisplayFullScreen = False

.CommandBars("Worksheet Menu Bar").Enabled = True

End With

Referências: Denis Ostero

Tags: VBA, Excel, Menu, Bar, Barra,