¿Cómo puedo hacer para que pueda modificar la celda cierto tiempo y luego se bloquee?

Tengo el libro de excel y quiero que se pueda modificar una celda por solo cierto tiempo Ej:"10s" y luego se bloquee automáticamente.

Tengo esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C18,C23,C28,C33,C38,C43,C48,C53,C58,C63")) Then
calcular = Now + TimeValue("00:00:10")
ActiveSheet.Unprotect ""
Target.Locked = True
Target.FormulaHidden = True
ActiveSheet.Protect ""
End If
End Sub

Pero al momento de realizarla me marca errores, ¿me podrían corregir? O darme otra macro