Página 1 de 1

Ocultar Botão

Enviado: 24 Ago 2016 às 13:24
por Kevim2013
Existe alguma forma de ocultar um botão?

Exemplo: Um botão btExecuta
Eu gostaria que com esse botão fosse ocultado no plano até alguém escrever "tecnico" na celula "a1" e iria desocultar o botão.

O código do tecnico na celula a1 ja tenho.
Gostaria de saber se existe alguma forma de ocultar e "desocultar" um botão da planilha.
Ou criar um botão com código dentro(criar um botão eu sei que tem como mas criar com código ja não sei)
Código: Selecionar todos
'código para achar o tecnico na celula a1'

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$a$1" And Target.Value = "tecnico" Then

'Aqui vai desocultar o botão
    
ElseIf Target.Address = "$E$28" And Target.Value <> "2015068" And Target.Value <> "" Then

 'Botão ficara oculto

Else: Exit Sub
End If


Tem como?

OCULTAR BOTÃO

Enviado: 24 Ago 2016 às 13:47
por gfranco
Boa tarde.
Minha sugestão:
Se vc deixar as propriedades do botão como "mover e dimensionar com células", poderia criar uma rotina de ocultar as linhas localizadas entre a parte superior e inferior do botão ( ocultando consequentemente o botão) e reexibi-las apenas quando as condições especificadas forem atendidas

OCULTAR BOTÃO

Enviado: 24 Ago 2016 às 15:52
por cyllio
Pode ser assim?

'código para achar o tecnico na celula a1'
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)

If [A1].Value = "tecnico" Then

'Aqui vai desocultar o botão
[Button 1].Visible = False
    
Else
 'Botão ficara oculto
 [Button 1].Visible = True

End If

End Sub
o ocultar e desocultar só ficou invertido no meu exemplo né? :o

Poderia me dar um exemplo?

Enviado: 24 Ago 2016 às 16:49
por Kevim2013
Coloquei um anexo abaixo, tentei fazer da sua forma mas não funcionou. Tentei editar o código de forma mais específica e também não foi.

Poderia editar este anexo para que eu entenda a forma correta de fazer isto?

Re: OCULTAR BOTÃO

Enviado: 25 Ago 2016 às 05:56
por gfranco
Bom dia.
Seria +- isso?

OCULTAR BOTÃO

Enviado: 25 Ago 2016 às 16:18
por Kevim2013
Isso mesmo meu amigo obrigado ^^