Desabilitar e Habil...
 
Notifications
Clear all

Desabilitar e Habilitar botão de comando

11 Posts
2 Usuários
0 Reactions
5,028 Visualizações
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

Olá, pessoal.

Sou novo no fórum. Fiz uma pesquisa no google e aqui, mas não encontrei a resposta.
Como eu faço para desabilitar uma botão (controle de formulário) e habilitar posteriormente?
Ex: Quando abrir o arquivo o botão(1) vai desabilitar. E só habilitará se eu clickar em um outro botão(2).

Grato.

 
Postado : 02/01/2013 4:42 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

tente...

Private Sub CommandButton1_Click() 
    CommandButton2_Click 
End Sub 

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2013 4:46 pm
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

Olá, AlexandreVBA.

Eu sou iniciante em programação em excel. Faço muita coisa através da gravação por macro ou copiando esquemas prontos.
Nessas linhas de código que vc escreveu acima. Como eu identifico qual é o CommandButton1 e o CommandButton2? Quando eu aprendi a programar em VB ( a uns 10 anos, coisa básica) lá tinha a indicação dos objetos (botão), mas no excel eu não consigo encontrar isso.
Ademais, tentei usar o comando que vc indicou mas não deu certo.
Poderia ser mais específico
Grato

 
Postado : 02/01/2013 4:59 pm
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

O mais próximo que eu encontrei foi esse código " CommandButton1.Enabled = False", mas mesmo assim eu não sei usar, pois não sei como indicar qual o botão que eu quero desativar ou ativar.

 
Postado : 02/01/2013 5:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu acho que eu não entendi o que você pretende, mas...

Ademais, tentei usar o comando que vc indicou mas não deu certo.

Por favor mande seu arquivo modelo compactado!!

Como eu identifico qual é o CommandButton1 e o CommandButton2?

Na janela de propriedade, além do mais é só adaptar (eu não tenho sua planilha).

Poderia ser mais específico

isso só possível se você for extremante específico!!

Não se limite, use a pesquisa do fórum!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2013 5:05 pm
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

Não consegui hospedar a tabela, mas vamos a um exemplo:
Crie 3 botões na planinha. o 1° botão terá o nome "Desativar botão 3", o 2° será "Ativar botão 3", e o 3° botão que sofrerá as interferências dos outros dois. Eu quero isso. Uma linha de código que o 1° botão desative o 3°, e que o 2° Ative esse último.

Grato.

 
Postado : 02/01/2013 8:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ge, você postou no Forum "Formulários" e depois diz que os Botões estão na Planilha ?

Se estiver se referindo aos CommandButtons (ActiveX) adicionados pela opção da Guia Desenvolvedor Excel 2007 , utilize a rotina abaixo, é só fazer as adaptações conforme os Nomes que der aos Botões :

Private Sub CommandButton1_Click()
    
    Sheets("Plan1").Shapes("CommandButton2").ControlFormat.Enabled = False 'False - Desabilita e True - Habilita

End Sub

Para saber quais os respectivos Botões, na Guia Desenvolvedor clique no icone "Modo de Design" e depois clique no Botão e terá o nome na caixa de seleção acima a esquerda.

Se for Botão utizando a opção "Controles de Formulário", este não tem propriedade Enabled e sim Visible e arotina seria :

Sub MacroBotao()
   
    Sheets("Plan1").Shapes("Botão 1").Visible = True

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2013 8:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja o modelo em:
http://www.sendspace.com/file/oq9wh5

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2013 9:06 pm
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

Valeu, Mauro. Era isso mesmo que eu estava procurando. BRIGADÃO!!!
Eu sabia que era uma coisa simples, mas não estava achando. Como disse, sou iniciante em VB no excel. O último exemplo serviu bem.

 
Postado : 02/01/2013 9:16 pm
(@georgevbs)
Posts: 30
Eminent Member
Topic starter
 

Obrigado ao alexandrevba tbm, pelo exemplo.

 
Postado : 02/01/2013 9:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Caso seu tópico esteja elusidado então lembre se de marca-lo como resolvido!

Eu vou considerar e marcar dessa vez, caso contrário, retorne disendo o que ainda está pendente.

Veja como marcar seu tópico como resolvido
viewtopic.php?f=7&t=3784
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2013 10:56 pm