Página 1 de 1

como resolvo erro na planilha de login e acesso vba

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

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

Enviado: Dom Set 17, 2017 2:26 pm
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

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

Enviado: Seg Set 18, 2017 9:33 pm
por wallison
muito obrigado, agora funcionou perfeitamente agradeço pela informação e estou a disposição quando precisar. grato.

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

Enviado: Seg Set 18, 2017 11:36 pm
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

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

Enviado: Qui Out 19, 2017 6:50 pm
por wallison
boa noite, como consigo ocultar uma planilha para que outro usuário não visualize uma determinada planilha ?

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

Enviado: Qui Out 19, 2017 8:14 pm
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

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

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

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

Enviado: Qua Nov 01, 2017 8:24 pm
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

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

Enviado: Dom Jul 21, 2019 1:29 pm
por azved0
Olá

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

Obrigado!

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

Enviado: Dom Jul 21, 2019 11:42 pm
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