Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

7 de abril de 2012

VBA Excel - Retirando os menus




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,



Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine