Excel Alterar Nome do Botão

[paulocezarpicos]

Galera,

 

Já pesquisei na net algo que me ajudasse no meu projeto e não achei nada parecido. Tenho uma planilha que tem dois botões, um com o nome "Ocultar" e o outro com o nome "Exibir". Gostaria que fosse só um botão, quando clicasse em Ocultar executasse uma macro (tipo Call etc..), e que esse mesmo botão desse a opção de Exibir, aparecendo a opção Exibir (executando outro Call) no mesmo botão. Ficaria legal. Se alguém puder me ajudar, ficaria grato.

 

Paulo Cezar.

[Visitante]

 

Experimente:

Sub BotãoÚnico()
 If ActiveSheet.Buttons(Application.Caller).Caption = "Ocultar" Then
  Macro1
  ActiveSheet.Buttons(Application.Caller).Caption = "Exibir"
 ElseIf ActiveSheet.Buttons(Application.Caller).Caption = "Exibir" Then
  Macro2
  ActiveSheet.Buttons(Application.Caller).Caption = "Ocultar"
 End If
End Sub

 

[paulocezarpicos]

osvaldo,

 

Não sei o que estou fazendo de errado, mas está dando esse erro:

 

O que estou fazendo de errado???

[Visitante]

Como você não informou o tipo de botão eu sugeri um código para botão inserido via Controles de Formulário, que é o mais comum, e talvez você esteja utilizando botão inserido via Controles ActiveX, por isso ocorre o erro.

[paulocezarpicos]

Osvaldo,

 

Os botões foram inserido via "Controles de Formulário" mesmo e não via "Controles ActiveX".

[Visitante]

Você poderia disponibilizar o arquivo Excel na forma em que está ocorrendo o erro?

 

[paulocezarpicos]

Osvaldo,

 

Minhas sinceras desculpas por tomar seu tempo por falta de habilidade minha, eu estava usando proteção na minha planilha do tipo:  "'ActiveSheet.Protect Password:="0". Já resolvi.

 

Muito obrigado,

 

Paulo Cezar.