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

172 Parte III: Conceitos de Programação
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub
O procedimento Workbook_SheetActivate usa o argumento Sh. Sh é
uma variável que representa o objeto ativo Sheet. A caixa de mensagem
exibe a propriedade Name do objeto Sheet. O próximo exemplo está
contido em uma janela do código de EstaPasta_de_Trabalho. Ele
consiste de dois procedimentos que lidam com eventos:
55
Workbook_SheetDeactivate: Executado quando qualquer
planilha na pasta de trabalho for desativada. Ele armazena a
planilha que é desativada em um objeto variável (a palavra
chave Set cria um objeto variável).
55
Workbook_SheetActivate: Executado quando qualquer planilha
na pasta de trabalho for ativada. Ele verifica o tipo de planilha
que está ativa (usando a função TypeName). Se a planilha for
uma planilha de gráfico, o usuário recebe uma mensagem (ver
Figura 11-4). Quando o botão OK na caixa de mensagem for
clicado, a planilha anterior (que está armazenada na variável
OldSheet) é reativada.
Figura
11-4:
Quando
uma
planilha de
gráfico é
ativada, o
usuário vê
uma
mensagem
como esta.