Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
como resolvo erro na planilha de login e acesso vba
como resolvo erro na planilha de login e acesso vba
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
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 :
Aqui nos testes que realizei, funcionou perfeitamente.
Abs
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
Abs
Re: como resolvo erro na planilha de login e acesso vba
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
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
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
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
wallison,
Para ocultar uma planilha (aba), crie uma nova rotina (Sub) ou adicione a linha abaixo em alguma rotina existente :
Substitua nomeplanilha pelo nome da aba, mantendo as aspas duplas.
Abs
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
Abs
Re: como resolvo erro na planilha de login e acesso vba
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
wallison,
No editor do VB, adicione um módulo, copie e cole o que segue :
Ou, para reexibir todas :
Espero ter ajudado.
Abs
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
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
Abs
Re: como resolvo erro na planilha de login e acesso vba
Olá
Como faço para apresentar na planilha o nome do usuário logado ?
Obrigado!
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
azved0,
Como sua pergunta ficou um tanto vaga, deixo abaixo duas opções :
Espero ter ajudado.
Abs
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
Abs