Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:E3")) Is Nothing Then
ActiveSheet.Unprotect
DoEvents
Target = Calendar.ShowX(Target, 2, 0, 1)
Cancel = True
ActiveSheet.Protect
End If
End Sub