Parceria RicardoHorta.Net + SUBMARINO !!

Objeto.

• Aplica-se a coleção CommandBars.

Função.

• Ativa / desativa a personalização de todas as barras de ferramentas.

Sintaxe

• CommandBars + . + DisableCostumize = True ou False.
• Quando DisableCostumize for igual a True, o usuário não poderá alterar, adicionar ou excluir botões das barras de ferramentas do Excel XP.

Exemplo.

• Com a ajuda do VBA, a barra de ferramentas, que você criou, será ativada e posicionada no canto inferior da tela sempre que determinada pasta de trabalho for aberta.
• Você escolheu o evento Open para inserir as linhas de comando abaixo.

• Agora, você deseja evitar que o usuário personalize a barra. Evitar, significa impedir o acesso...

• ... à opção Personalizar.
• Você não quer que o usuário tenha acesso à caixa de diálogo Personalizar, para incluir, excluir ou alterar os botões das barras de ferramentas.

• A solução é simples, jovem. Inclua no evento Open a instrução: .CommandBars.DisableCustomize = True.
• Salve as alterações e feche a pasta de trabalho.

• Ao abri-la, novamente, a sua barra será ativada e exibida no canto inferior da tela.

• O usuário poderá movê-la.

• Porém, grande mancebo(a) internauta, a opção Personalizar ficará desativada.

• Esta opção não será exibida no menu, que é ativado quando você clica com o botão direito em qualquer barra de ferramentas.

• E se você clicar em Ferramentas, poderá visualizar a opção Personalizar, porém, não poderá acessá-la.

• Você poderá retornar a propriedade para False, permitindo a personalização das barras, incluindo este código no evento BeforeClose da pasta de trabalho.

SUBMARINO: Fácil ! Rápido ! Seguro !

RicardoHorta.Net

SUBMARINO: Fácil ! Rápido ! Seguro !

www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta