locked
Botão inativo RRS feed

  • Pergunta

  •  

    Olá meu povo!!!!

     

    Gostaria de saber qual o código de eu deveria usar para deixar um botão inativo?

     

    Por exemplo:

    Quando eu inicio o arquivo aparece um UserForm1, neste formulario peço que o usuário entre com o seu nome, se o nome for igual a Erick, ele deixe um botão1 ativo, se não deixe inativo.

     

    Como faço isso.....

     

     

    terça-feira, 13 de janeiro de 2009 03:27

Respostas

  •  

    Faltou especificar a planilha..

     

    Code Snippet

    Sub Auto_open()
        If Plan1.Range("A20") = "Erick" Then
            Plan1.CommandButton1.Enabled = True
        Else
            Plan1.CommandButton1.Enabled = False
        End If
    End Sub

     

     

    Só que este botão tem que ser da caixa de ferramenta de controle..

    Lá em exibir/Barra de ferramentas/caixa de ferram de controle

     

    Até...

    terça-feira, 13 de janeiro de 2009 18:01

Todas as Respostas

  • Olá..

    Para deixar inativo

    Code Snippet
    CommandButton1.Enabled = False

     

     

    Para voltar ativo

    Code Snippet

    CommandButton1.Enabled = True

     

    Até.

     

     

     

     

     

     

     

     

    terça-feira, 13 de janeiro de 2009 10:23
  • Valeu Evangelista funcionou no formulario.

     

    Mais se em uma Célula (A1) tem um nome ex. Erick, eu quero que o ao abrir o arquivo botão verifique se aquela célula tem um nome Erick para ficar ativo, se não inativo, apartir daí o botão fazer o seu comando ao clicar nele.

     

    EM 

    terça-feira, 13 de janeiro de 2009 14:42
  • Vê se é isto..

    Ao inicializar o formulário verifica se o nome da célula A1 na planilha 1 é Erick, se não for o botão fica inativo..

     

    Code Snippet

    Private Sub UserForm_Initialize()
        If Plan1.Range("A1") = "Erick" Then
            CommandButton1.Enabled = True
        Else
            CommandButton1.Enabled = False
        End If
    End Sub

     

     

    Testa aí e me fala..Até
    terça-feira, 13 de janeiro de 2009 16:03
  • Nada!!!!

     

    Estou usando a seguinte linha de comando:

    Na Plan1 (alt+f11);

     

    Code Snippet

    sub Auto_open()

    If Plan1.Range("A20")= "Erick" Then

    CommandButton1.Enabled = True

    Else

    CommandButton1.Enabled = False

    End If

    End Sub

     

     

    Esta dando erro neste comando, pos o botão que estou usando não é do UserForm e sim do Formulário do excel.

     

    Onde estou errando. 

     

    terça-feira, 13 de janeiro de 2009 17:36
  •  

    Faltou especificar a planilha..

     

    Code Snippet

    Sub Auto_open()
        If Plan1.Range("A20") = "Erick" Then
            Plan1.CommandButton1.Enabled = True
        Else
            Plan1.CommandButton1.Enabled = False
        End If
    End Sub

     

     

    Só que este botão tem que ser da caixa de ferramenta de controle..

    Lá em exibir/Barra de ferramentas/caixa de ferram de controle

     

    Até...

    terça-feira, 13 de janeiro de 2009 18:01
  •  

    Po.... que besteira... só faltava isso é o exibir/Barra de ferramentas/caixa de ferram de controle.

     

    Valeu!

    terça-feira, 13 de janeiro de 2009 19:13