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

Asterisco na InputBox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Asterisco na InputBox

Mensagem por ortegaf »

Boa tarde,

Tenho um código que limita o acesso a planilha por Usuário, porém, quando o mesmo digita a senha ela fica exposta...
Gostaria de ajuda com um código que não mostra a senha ao digitar.
Segue o código...

Código: Selecionar todos

Private Sub Workbook_Open()

Dim senha As String, usuario As String
Inicio:
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVeryHidden
CUSTOS_IMP.Visible = xlSheetVeryHidden
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVeryHidden
RESULTADO.Visible = xlSheetVeryHidden
usuario = InputBox("Digite o usuário")
senha = InputBox("Digite a senha")

Dim linha As Long
Dim achou As Boolean
achou = False
For linha = 1 To Users.UsedRange.Rows.Count

If senha = Users.Range("C" & linha).Value Then

If usuario = Users.Range("A" & linha).Value Then
achou = True
If "A" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible


Call TirarB
Call TirarC
Call TirarD
Call TirarX
Call OcultaA



End If

If "B" = Users.Range("B" & linha).Value Then

Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible

 Call TirarC
 Call TirarD
 Call TirarX
 Call TirarA
 Call OcultaB
 


End If

If "C" = Users.Range("B" & linha).Value Then

Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible

 Call TirarD
 Call TirarX
 Call TirarA
 Call TirarB
 Call OcultaC




End If

If "D" = Users.Range("B" & linha).Value Then

Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible

Call TirarB
Call TirarA
Call TirarX
Call TirarC
Call OcultaD

End If


If "X" = Users.Range("B" & linha).Value Then

Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible

Call TirarA
Call TirarB
Call TirarC
Call TirarD
Call OcultaX

End If
End If
End If

Next linha

If achou = False Then
GoTo Inicio
End If

End Sub



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.


ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Re: Asterisco na InputBox

Mensagem por ortegaf »

Esse código só funciona para sistema 64 bits?


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Asterisco na InputBox

Mensagem por Tov Elen Shau »

Colega

Boa tarde.

Um userform de login não resolveria?


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.


ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Re: Asterisco na InputBox

Mensagem por ortegaf »

Tov Elen Shau escreveu: Ter Mar 12, 2019 4:57 pm Colega

Boa tarde.

Um userform de login não resolveria?
Eu precisaria mudar o código??


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Asterisco na InputBox

Mensagem por Mikel Silveira Fraga »

Boa noite / bom dia a todos.

Ortegaf, não cheguei a ver o código, mas pelo título do tópico, já adianto que o uso de InputBox para informação de senha, não é a melhor forma de se desenvolver um processo de login, pois o InputBox é limitado, quando a questão é segurança.

Conforme mencionado pelo Tov Elen Shau, o ideal seria a criação de um formulário de login e, ao invés de pegar os valores de usuário e senha do InputBox, pegaria dos TextBox´s existentes neste formulário.
ortegaf escreveu: Ter Mar 12, 2019 5:39 pm Eu precisaria mudar o código??
A resposta para sua pergunta é: Sim.
Será necessário realizar uma adaptação no seu código, alterando a origem dos dados de Usuário e Senha. Ao invés de capturar dos InputBox´s, a rotina será armazenada pelas TextBox´s do Formulário desenvolvido. Essa é a melhor solução para o seu problema.

No mais, espero que consiga ter ajudado com as dicas. Tente adaptar seu código ao código apresentado no link enviado pelo Tomás. Acredito que resolveria seu problema também.

No mais, quaisquer dúvidas, a disposição.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Asterisco na InputBox

Mensagem por Tov Elen Shau »

Colega, estou enviando um exemplo pra vc ver e estou enviando o próprio formulário para importação. Dentro do Editor do VBA vc vai em Arquivo\Importar Arquivo. Daí é só adaptar pra sua rotina.

Atenciosamente

Tov Elen Shau
Anexos
Login.rar
(27.76 KiB) Baixado 378 vezes


ortegaf
Colaborador
Colaborador
Mensagens: 33
Registrado em: Sáb Out 27, 2018 2:42 pm

Re: Asterisco na InputBox

Mensagem por ortegaf »

Shoooooow!

Muito obrigado, pode encerrar o tópico!


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