
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cAppEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public WithEvents App As Application

Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If TypeName(Sh) <> "Worksheet" Then Exit Sub

    Dim sh As Worksheet
    Set sh = Sh

    ' Restrict to specific sheets (Thai names)
    If sh.Name <> "กรรมการหลัก" And sh.Name <> "กรรมการเสริม" And sh.Name <> "กก.เสริม 2024" Then
        Exit Sub
    End If

    ' Decide if target column is date-like by header name
    If modDatePicker.IsDateColumn(sh, Target) Then
        Cancel = True
        modDatePicker.ShowDatePickerForTarget Target
    End If
End Sub
