none
Restringir acesso de botões em VBA RRS feed

  • Pergunta

  • Olá pessoal , sou nova no forum e gostaria de ajuda com a seguinte questão: Tenho um formulário em Excel VBA em desenvolvimento , porém tem vários botões, gostaria de saber como faço para restringir o acesso para alguns desses botões com uma senha ou de alguma outra forma.

    Se alguém me ajudar ficarei Grata.

    Ivonete.

    sexta-feira, 25 de janeiro de 2013 00:33

Respostas

  • Boa noite Ivonete.

    Uma forma de fazer isso é usar a propriedade 'Locked'. Dessa forma, a menos que o usuário faça Loging ou determinado procedimento seja executado (como marcar um 'OptionButton' ou 'CheckBox'), o valor padrão fica definido em 'False'.

    Outra forma é colocar uma 'Inputbox' solicitando a senha ao se pressioinar o botão. Caso o valor digitado esteja errado, você pode exibir uma mensagem de aviso e não executar o restante do código, até que a senha seja digitada corretamente.

    Assim resolve seu problema?

    Um abraço!


    Filipe Magno

    sexta-feira, 25 de janeiro de 2013 01:14
  • Adapte o código abaixo:

    Private Sub UserForm_Initialize()
        Dim sPergunta As String
        sPergunta = InputBox("Qual a senha?")
        If sPergunta <> "senha" Then
            Me.CommandButton1.Enabled = False
            Me.CommandButton2.Enabled = False
            Me.CommandButton3.Enabled = False
        End If
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de janeiro de 2013 21:33
    Moderador

Todas as Respostas

  • Boa noite Ivonete.

    Uma forma de fazer isso é usar a propriedade 'Locked'. Dessa forma, a menos que o usuário faça Loging ou determinado procedimento seja executado (como marcar um 'OptionButton' ou 'CheckBox'), o valor padrão fica definido em 'False'.

    Outra forma é colocar uma 'Inputbox' solicitando a senha ao se pressioinar o botão. Caso o valor digitado esteja errado, você pode exibir uma mensagem de aviso e não executar o restante do código, até que a senha seja digitada corretamente.

    Assim resolve seu problema?

    Um abraço!


    Filipe Magno

    sexta-feira, 25 de janeiro de 2013 01:14
  • Adapte o código abaixo:

    Private Sub UserForm_Initialize()
        Dim sPergunta As String
        sPergunta = InputBox("Qual a senha?")
        If sPergunta <> "senha" Then
            Me.CommandButton1.Enabled = False
            Me.CommandButton2.Enabled = False
            Me.CommandButton3.Enabled = False
        End If
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de janeiro de 2013 21:33
    Moderador
  • Olá amigo, gostaria de agradecer pela resposta, testei e deu certo..nossa muito obrigada mesmo...
    terça-feira, 5 de fevereiro de 2013 04:07
  •  Oi felipe só mais uma coisa, tem como converter a senha neste código para aparecer (*******) ?

    Desde já agredeço

    Ivonete

    terça-feira, 12 de fevereiro de 2013 17:28
  • Boa tarde Ivonete!

    Para isso, basta escolher um caracter para a propriedade "PasswordChar" da TextBox. No seu caso, basta usar "*".

    Vlw.


    Filipe Magno

    terça-feira, 12 de fevereiro de 2013 18:01