Password

[SimoneAmorin 0]

Boa tarde!

Alguém por favor pode me ajudar a colocar a senha como * , pois quando digito ela aparece na tela.

Obrigada Simone Amorin

 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

Const Senha As String = "123456"

Dim SenhaDigitada As String

 

SenhaDigitada = InputBox("Informe a senha para poder salvar a planilha:", "Salvar Planilha", "", 200, 200)

 

If Not SenhaDigitada = Senha Then

MsgBox "Senha incorreta. Esta planilha não pode ser salva.", vbInformation, "Mensagem"

SaveAsUI = False

Cancel = True

End If

 

End Sub

[Claudio Neto 3]

Olá Simone.

 

Na textbox há uma propriedade chamada PasswordChar.

Coloque um * ou qq outro símbolo que queira que tudo que for escrito nela receberá esse símbolo.

[SimoneAmorin 0]

Olá Simone.

 

Na textbox há uma propriedade chamada PasswordChar.

Coloque um * ou qq outro símbolo que queira que tudo que for escrito nela receberá esse símbolo.

Ja tentei não deu certo.

Alguém por favor.

Tem alguma outra sugestão

Obriada

[Careca 0]

Acho que vai ter que trocar de InputBox() para um TextBox. Não achei nos parâmetros do InputBox a possibilidade de utilizar PasswordChar. Se alguém souber como, diga aí.

[Claudio Neto 3]

Opa, não vi que estava digitando em um inputbox. Aí não da não para colocar *. O que você pode fazer é construir um form para pedir a senha como se fosse um input e trabalhar com text.

[SimoneAmorin 0]

Opa, não vi que estava digitando em um inputbox. Aí não da não para colocar *. O que você pode fazer é construir um form para pedir a senha como se fosse um input e trabalhar com text.

Alguém sabe como fazer? Poderia me ajudar?

Obrigada