none
acesso a planilhas por meio de senha RRS feed

  • Pergunta

  • Olá pessoal preciso de uma ajuda Urgente de vcs. 

    gostaria de uma macro ou cod. vba da seguinte forma:

    Exemplo: Em plan1 vai acessar o Pedro com a sua senha

    Em Plan2 vai acessar a Maria

    e assim por diante

    Eu fiz um Menu principal e ocultei todas as planilhas e neste menu existem botoes com hiperlinks que direcionam qdo a pessoa responsavel pela planilha clicar só que eu gostaria que se caso outra pessoa clica-se ser ser a sua pasta ele não tem permissão para fazer nada só se ele tiver a senha. Por favor amigos me deem uma força aí.

    Abrigado!

    quinta-feira, 12 de maio de 2011 22:56

Respostas

Todas as Respostas

  • Olá,

     

    Neste caso você poderia criar um tratamento de senha para cada botão, ou seja, para planilha de Maria uma verificação de senha, para Pedro outra, etc.

     

    No caso abaixo, criei um exemplo para a planilha de Maria, veja se entende:

     

    Sub maria()

     

    ' Declaração de variáveis

    Dim senhamaria, entrada As String

     

    senhamaria = "123"

    entrada = InputBox("Digite sua senha:", "Senha Maria")

     

    ' Verifica se a senha de Maria é correta

    ' Se a senha é diferente/incorreta

    If entrada <> senhamaria Then

     

        MsgBox "Senha inválida", vbInformation

     

    Exit Sub

     

    ' Caso contrário

    ' Torna a planilha de Maria visivel e a seleciona

    Else

     

        Sheets("Maria").Visible = True

        Sheets("Maria").Select

     

    End If

     

    End Sub

     

    ' A senha pode ser alterada a seu critério e o código pode ser utilizado para o Pedro também, alterando o código de acordo com a necessidade. Lembrando que as planilhas estarão ocultas e só estarão visíveis após a execução do código e inclusão de senha.

    Seria bom que bloqueasse o acesso ao seu código para que nenhum usuário mais esperto tenha acesso as senhas, outro detalhe é ocultar as guias no excel para que não possam reexibir as planilhas ocultas manualmente.

    Você pode usar o código abaixo no evento Open do WorkBook.

     

    Application.ActiveWindow.DisplayWorkbookTabs = False


    Bruno de Sousa Rocha - MyVBAFórum: http://vbaexcel.foruns.com.pt/
    segunda-feira, 16 de maio de 2011 00:59
  • Olá Bruno! aonde eu coloco este cod. na tela principal ou em um botao na tela principal! Não consegui entender o procedimento. Vc poderia me explicar melhor.

    GRato! 

    quarta-feira, 18 de maio de 2011 02:52
  • Você deve colocar em um módulo ou em eventos: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/
    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    • Marcado como Resposta Libeck quarta-feira, 1 de junho de 2011 00:36
    sexta-feira, 20 de maio de 2011 14:19
    Moderador