E qual o problema? deveria funcionar.

No máximo, alterando essa linha:
If TextBox1 = Plan1.Range("A1").Value Then

Para:
If TextBox1.Value = Sheets("Plan1").Range("A1").Value Then

Ou para :
If Me.TextBox1.Value = Sheets("Plan1").Range("A1").Value Then

Mas, depende de onde vc está colocando o código, pode ter outras coisas. Sem o modelo da planilha...

Boa tarde!!

Veja:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Não deu certo, se puder me ajudar fico agradecido, segue modelo em anexo.

Está dando um conflito pelo fato de ter números.

Forcei para que tudo seja interpretado como string:

Troque esta linha:
If Me.TextBox1.Value = Sheets("Plan1").Range("A1").Value Then

Por esta:
If CStr(Me.TextBox1.Value) = CStr(Sheets("Plan1").Range("A1").Value) Then

Resolvido, obrigado Gilmar, postei o codigo para futuras dúvidas dos leitores

Private Sub CommandButton1_Click()
Dim Linha As Long
Dim Linhas As Long
If CStr(Me.TextBox1.Value) = CStr(Sheets("Plan1").Range("A1").Value) Then
MsgBox "Senha Correta"
TextBox1 = Clean
CommandButton2.Visible = True
Else
MsgBox "Senha digitada inválida, verificar."
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
Plan1.Range("A1") = TextBox1
MsgBox "Nova Senha Registrada com Exito"
End Sub
Private Sub UserForm_Activate()
CommandButton2.Visible = False
End Sub