При записи данных с формы в процедуре снимать защиту и после записи снова ставить
Как-то так:
[vba]Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SH As Worksheet
Set SH = Sheets("Станок 1")
' Dim lLastRow As Long
SH.Unprotect "Пароль"
lLastRow = Sheets(ListBox1.Value).Cells(Sheets(ListBox1.Value).Rows.Count, "C").End(xlUp).Row + 1
Sheets(ListBox1.Value).Cells(lLastRow, "C").Value = Me.TextBox1.Value
TextBox1.Text = ""
MsgBox "Запись произведена на лист под названием " & Chr(10) & " """ & _
ListBox1.Value & """"
Label1.Caption = ""
SH.Protect "Пароль"
End Sub
[/vba]