Excel Ocultar caracteres digitados no imputbox da macro a seguir, como fazer?

[adebertione Pereira]

Ocultar caracteres digitados no imputbox da macro a seguir, como fazer?

Sub lsDesprotegerTodasAsPlanilhas()
                    'Declara as variáveis necessárias
   Dim lPass As String
   Dim lQtdePlan As Integer
   Dim lPlanAtual As Integer
                    'Solicita a senha
                    'O método InputBox é utilizado para solicitar um valor através de um formulário
   lPass = InputBox("Desproteger todas as planilhas:", "Senha", ActName)
                    'Inicia as variáveis
                    'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo
   lQtdePlan = Worksheets.Count
   lPlanAtual = 1
                    'Loop pelas planilhas
                     'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas
   While lPlanAtual <= lQtdePlan
                    'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3...
   Worksheets(lPlanAtual).Activate
                     'O método .UnProtect desprotege a planilha
   ActiveSheet.Unprotect Password:=lPass
                     'Muda o índice para passar para a próxima planilha
   lPlanAtual = lPlanAtual + 1
   Wend
                       'O método MsgBox exibe um formulário de aviso ao usuário.

End Sub

 

[Midori]

@adebertione Pereira  O inputbox não tem esse recurso, mas com um formulário você pode acrescentar um TextBox e atribuir p.ex o asterisco na propriedade PasswordChar.