Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
asterisco no Inputb...
 
Notifications
Clear all

asterisco no Inputbox

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
4,392 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou usando este código para bloquear a execução de macro , através de senha , teria como o inputbox mostrar *(asterisco) ao inves da senha digitada?

Sub Senha_da_Macro()
Dim strPassword As String
Dim strRetVal As String

strPassword = "1"
strRetVal = InputBox("CONTRATO VENCIDO - Digite a Senha Para Alteração dos Dados", "Senha de Acesso a Alteração de Dados Contratuais")
If strRetVal = strPassword Then
FrmCad.Show
Else
If strRetVal = "" Then
MsgBox "Atenção os Valores Permanecerão do Contrato Anterior", vbCritical, "CONTRATO VENCIDO"
Else
MsgBox "Senha Incorreta", vbCritical, "Acesso Negado" '
End If
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 1:55 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Encontrei esse artigo porém não testei.

http://www.mrexcel.com/archive/VBA/19882a.html

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 2:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja tambem no link abaixo :

VBA – Utilizando InputBox com Máscara (senha)
http://www.tomasvasquez.com.br/blog/mic ... cara-senha

Este eu sei que funciona, já utilizei.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 5:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

qual a vantagem de ao invés de fazer um Form e usar o passwordchar usar o inputbox , no form seria mais simples?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 6:28 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Se a dica acima não te ajudar, sua busca será em vão!!

A caixa de entrada, lembra bem uma célula, não programada exatamente para essa atuação de ter que não mostrar os dados digitados.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 6:34 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

qual a vantagem de ao invés de fazer um Form e usar o passwordchar usar o inputbox , no form seria mais simples?

A questão não é qual a vantagem, varios controles, tanto em formulário como Controles AtiveX na aba teem esta propriedade por padrão, não necessitando de programação especial, de fato torna mais simples, e um Inputbox não tem, somente por Apis.
Então dependendo do que queremos utilizamos um ou outro.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 6:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico