Not MS DatePicker & restrict entries to certain range

[Eric Carolus]

Hi folks
I downloaded a DatePicker from Calendar Control for All Office versions - including Office 2016 64 bit (With Advanced Features) - E90E50

I have searched the literature how to restrict DatePicker entry to certain ranges (for dates). and found the following code

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

‘ One cell had been selected
If Selection.Count = 1 Then
If Not Intersect(Target, Range("C8:C32;H8:I32")) Is Nothing Then
‘Call MyMacro
Call Calendar1_Click
End If
End If
End Sub

My request for assistance is:
a). to restrict date picker entry to a certain range(s)
b). format other range(s) for hh:mm to prevent date entry by the DatePicker.

The formatting option of MS Excel does not work for me.

Thanks for the assistance in advance.

Eric Carolus

 

[Eric Carolus]

Hi Folks

I found the solution!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("A6,C6"), Target) Is Nothing Then

'----------------------------------
' Open DatePicker
Set DatePickerForm.Target = Target.Cells(1, 1)
DatePickerForm.Show vbModal
Cancel = True
'----------------------------------
End If

End Sub

Thank you.

Eric Carolus