Password

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