Boa tarde!!

Seria perca de tempo, crie um Form com Txtbox!!!!

Att

Boa tarde!!

Charles dê uma olhada em nossa base!!!!
viewtopic.php?f=16&t=4262&p=21456&hilit=senha+inputbox#p21456

Att

interessante.... porém, não consegui adaptar na minha planilha

Copia a primeira parte do codigo no topico (onde comoça com option explcit) para um modulo do seu projeto.
Depois no seu codigo é só alterar de:
Application.inputbox
para:
inputboxdk

perfeito Reinaldo... em relação à segunda questão do post, tem como ser resolvida?

Outra coisa, quando eu digito a senha errada ou fecho a inputbox que solicita a senha, é mostrada uma mensagem informando que o prazo de validade venceu, até aqui ok, só que após isso é mostrada uma outra mensagem e só depois a planilha é fechada. Eu queria que esta segunda mensagem não fosse mostrada.

Não dou muita atenção a esse tipo de rotina, mas veja se assim atende

Private Sub Workbook_Open()
Dim exdate As Date
exdate = "7/09/2012"  'data de vencimento
If exdate > Date Then
 MsgBox ("Você tem " & exdate - Date & " dia(s) restante(s)."), vbInformation, "Atenção..."
End If
If Date > exdate Then
    varNum = InputBoxDK("A planilha expirou, para utilizá-la favor informar o código fornecido pelo desenvolvedor.", "Inserir código...", "Insira aqui o seu código...")
        If varNum = 123 Then
            Exit Sub
        Else
            MsgBox ("O período de licença da planilha chegou ao fim e a mesma será fechada."), vbCritical, "Fim da licença..."
            ThisWorkbook.Application.Quit
        End If
End If
End Sub

boa mlq... obg.