Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Dom Set 17, 2017 1:11 pm

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: 753
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » Dom Set 17, 2017 2:26 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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 » Seg Set 18, 2017 9:33 pm

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



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

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

Mensagem por srobles » Seg Set 18, 2017 11:36 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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 » Qui Out 19, 2017 6:50 pm

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



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

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

Mensagem por srobles » Qui Out 19, 2017 8:14 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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 » Qua Nov 01, 2017 6:04 pm

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: 753
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » Qua Nov 01, 2017 8:24 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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 » Dom Jul 21, 2019 1:29 pm

Olá

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

Obrigado!



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

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

Mensagem por srobles » Dom Jul 21, 2019 11:42 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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