Vídeo recomendado
https://youtu.be/diWPPPhW-9E

como resolvo erro na planilha de login e acesso vba

Dicas dos mais variados tipos, necessidades, angústias, enfim
wallison
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Set 17, 2017 11:16 am

como resolvo erro na planilha de login e acesso vba

Mensagem por wallison »

boa tarde alguém pode me ajudar com essa planilha de login e acesso, baixei no blog e ta dando erro quanto ao acesso ( false e true ) para acessar as planilhas continua sem permissão de acesso já tentei corrigir mas não funcionou como faço?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por srobles »

wallison,

Abra o editor do VBA (VBE), e no módulo mdlLogin, procure pela Function TemAcesso.

Nesta Function, existe um laço While e dentro dele um laço If.

Neste laço If, adicione = True no final da linha, ficando assim :

Código: Selecionar todos

    If .Cells(linha, colPlanilha).Value = planilha And .Cells(linha, colUsuario).Value = usuarioLogado.ID And .Cells(linha, colAcesso).Value = True Then
        sucesso = True
        Exit Do
    End If
Aqui nos testes que realizei, funcionou perfeitamente.

Abs


wallison
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Set 17, 2017 11:16 am

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por wallison »

muito obrigado, agora funcionou perfeitamente agradeço pela informação e estou a disposição quando precisar. grato.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por srobles »

wallison,

Que bom que funcionou amigo!

Favor, assim que considerar o tópico resolvido, edite o título inicial do tópico com a palavra [RESOLVIDO], ok?

Abs


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


wallison
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Set 17, 2017 11:16 am

Re: como ocultar planilha na planilha de login e acesso vba

Mensagem por wallison »

boa noite, como consigo ocultar uma planilha para que outro usuário não visualize uma determinada planilha ?


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por srobles »

wallison,

Para ocultar uma planilha (aba), crie uma nova rotina (Sub) ou adicione a linha abaixo em alguma rotina existente :

Código: Selecionar todos

   ThisWorkBook.Sheets("nomeplanilha").Visible = xlVeryHidden
Substitua nomeplanilha pelo nome da aba, mantendo as aspas duplas.
Abs


wallison
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Set 17, 2017 11:16 am

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por wallison »

boa noite amigo, eu coloquei esse código, incluir o nome da planilha ela sumiu e não consigo voltar, fiz algo errado sera?


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por srobles »

wallison,

No editor do VB, adicione um módulo, copie e cole o que segue :

Código: Selecionar todos

Sub exibirPlanilha()
   ThisWorkBook.Sheets("nomeplanilha").Visible = True
End Sub
Ou, para reexibir todas :

Código: Selecionar todos

Sub exibirPlanilha()
   Dim contPlan As Integer
   contPlan = ThisWorkBook.Sheets.Count
   For nPlan = 1 to contPlan
      ThisWorkBook.Sheets(nPlan).Visible = True
   Next
End Sub
Espero ter ajudado.

Abs


azved0
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Jul 19, 2019 4:32 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por azved0 »

Olá

Como faço para apresentar na planilha o nome do usuário logado ?

Obrigado!


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: como resolvo erro na planilha de login e acesso vba

Mensagem por srobles »

azved0,

Como sua pergunta ficou um tanto vaga, deixo abaixo duas opções :

Código: Selecionar todos

Sub usuarioLogado()
    With ThisWorkbook.Sheets(1)
        'Retorna o usuário contido como registrado
        'no pacote Office
        .Cells(1, 1) = "Application.UserName :"
        .Cells(1, 2) = Application.UserName
        
        'Retorna o usuário logado na sessão
        'do Windows (local / dominio)
        .Cells(2, 1) = "Environ (" & Chr(34) & "USERNAME" & Chr(34) & ") :"
        .Cells(2, 2) = Environ("USERNAME")
        
        'Ajusta a largura das colunas, baseando no
        'comprimento do texto
        .Cells.EntireColumn.AutoFit
    End With
End Sub
Espero ter ajudado.

Abs


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder