Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

328 Parte IV: Como se Comunicar com Seus Usuários
menu Change Case. Livre-se de todas as entradas, executando
DeleteFromShortcut várias vezes (uma vez para cada item extra
do menu).
Por fim, você precisa de uma maneira para acrescentar o item de menu
de atalho quando a pasta de trabalho estiver aberta, e apagar o item de
menu quando a pasta de trabalho for fechada. Fazer isso é fácil… se
você leu o Capítulo 11. Basta adicionar dois procedimentos de evento
ao módulo de código ThisWorkbook:
Private Sub Workbook_Open()
Call AddToShortcut
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteFromShortcut
End Sub
O procedimento Workbook_Open é executado quando a pasta de
trabalho está aberta, e o procedimento Workbook_BeforeClose é executado
antes da pasta de trabalho ser fechada. Exatamente o que o médico
recomendou.
Desativando um menu de atalho
Se tiver inclinação, você pode desativar um menu de atalho inteiro. Por
exemplo, pode fazê-lo para exibir o menu de atalho ao clicar com o
botão direito em uma célula. O seguinte procedimento, que é executado
automaticamente quando a pasta de trabalho é aberta, desativa o menu
de atalho de célula:
Private Sub Workbook_Open()
Application.CommandBars(“Cell”).Enabled = False
End Sub
E aqui está o procedimento companheiro dele, que habilita o menu de
atalho quando a pasta de trabalho é fechada.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(“Cell”).Enabled = True
End Sub
CUIDADO!
Tenha em mente que mudanças a CommandBars são permanentes. Se
você não executar o procedimento para habilitar o menu de atalho, tal
menu de atalho não estará disponível até você reiniciar o Excel. O
procedimento ResetAll, mencionado anteriormente neste capítulo,
mostra como você consegue que todos os seus CommandBars voltem
às suas posições originais.