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