将Excel 2013中的date选取器日历控件限制为仅一列和总行

我正在处理Office 2013 x64,我遇到的问题是dateselect器。 我也search了networking和计算器,并且遇到了日历控制 ! 我在第5版中使用了由他们提供的vba的macros,它在我应用macros的整个工作表中工作,但是我的目标是只在一个列中使用这个macros。这里是行

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'If IsDate(Target.Cells(1, 1).Value) Then Set DatePickerForm.Target = Target.Cells(1, 1) DatePickerForm.Show vbModal Cancel = True 'End If End Sub 

我正在寻找一种方法来限制macros只是一列,但不能find成功的代码我想在这个dateselect器工具只有一列和一排所以请帮助我,你可以在这里下载xlsm文件这是一个date控制macros下载.xlsm文件 !