Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect Password:="."
If Not Intersect(Target, Range("B:B , F:F")) Is Nothing Then
Cancel = True
If Target = "" Then
Target.Formula = Date
Else
Target = ""
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "TEXT"
Else
Target = ""
End If
End If
ActiveSheet.Protect Password:="."
End Sub