.....
With Worksheets("claims")
ActiveSheet.Unprotect ("0")
derlig = .Range("B5000").End(xlUp).Row + 1
xdate = CDate(TextBox1.Value)
.Cells(derlig, 2).Value = CDate(TextBox1.Value)
.Cells(derlig, 3).Value = TextBox2.Value
.Cells(derlig, 4).Value = TextBox3.Value
.Cells(derlig, 5).Value = TextBox4.Value
.Cells(derlig, 6).Value = TextBox5.Value
.Cells(derlig, 7).Value = CDate(TextBox6.Value)
.Cells(derlig, 8).Value = TextBox7.Value
.Cells(derlig, 9).Value = TextBox8.Value
.Cells(derlig, 12).Value = TextBox9.Value
.Cells(derlig, 13).Value = TextBox10.Value
.Cells(derlig, 14).Value = TextBox11.Value
.Cells(derlig, 15).Value = TextBox12.Value
ActiveSheet.Protect ("0")
Exit Sub
.....