Private Sub TextBox1_Change()
Worksheets(1).Range("d4").Value = CCur(UserForm1.TextBox1.Text)
End Sub

Como você bloqueou as células da planilha acima, o código não vai funcionar.

Private Sub TextBox1_Change()
'código para desbloquear aqui
Worksheets(1).Range("d4").Value = CCur(UserForm1.TextBox1.Text)
'código para bloquear aqui
End Sub

Não sei que tipo de bloqueio você utilizou.
Geralmente se faz assim:

Private Sub TextBox1_Change()
'código para desbloquear aqui
sheets(1).unprotect "123"
Worksheets(1).Range("d4").Value = CCur(UserForm1.TextBox1.Text)
'código para bloquear aqui
sheets(1).protect "123"
End Sub

Outro código:

Sub ProtegerPlanilha()
    ActiveSheet.Protect _
    Password:="Um + Um = 2", _
    DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True, _
    UserInterfaceOnly:=True, _
    AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, _
    AllowInsertingColumns:=True, _
    AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, _
    AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, _
    AllowSorting:=True, _
    AllowFiltering:=True, _
    AllowUsingPivotTables:=True
End Sub

outro código:

Sub ProtegerArquivo()
   ThisWorkbook.Protect
End Sub

outro código:

Sub DesprotegerPlanilha()
    ActiveSheet.Unprotect ("Um + Um = 2")
End Sub

Não deu certo

por favor, você poderia fazer um modelo com essa planilha anexa?

muito obrigado!

Private Sub TextBox1_Change()
On Error Resume Next
Worksheets(1).Range("a1").Value = CCur(UserForm1.TextBox1.Text)
End Sub

Se você se refere ao valor R$ 1,00 que fica, aí é em relação ao código da Listbox.

muito obrigado