XL 2021 VBA - Comment savoir dans quel mode (vbModal / vbModeless) est affiché un UserForm

Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

' Déclarations API
Private Declare PtrSafe Sub mouse_event Lib "user32" ( _
    ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
    ByVal dwData As Long, ByVal dwExtraInfo As Long)

Private Declare PtrSafe Function SetCursorPos Lib "user32" ( _
    ByVal x As Long, ByVal y As Long) As Long

Private Declare PtrSafe Function GetCursorPos Lib "user32" ( _
    lpPoint As POINTAPI) As Long

' Constantes pour les événements souris
Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4

'----------------------------
' Fonction : SimulerClicCellule
' Description : Simule un clic gauche juste sous la cellule sélectionnée
' Retourne True si le UserForm est modal (clic sans effet)
'----------------------------
Public Function IsModal(Optional DécalageY As Long = 2) As Boolean
    Dim cell As Range
    Dim x As Long, y As Long
    Dim pt As POINTAPI
    Dim adrInit As String

    Set cell = ActiveCell
    adrInit = cell.Address

    ' Sauver la position du curseur
    GetCursorPos pt

    ' Calculer les coordonnées de la cellule décalée (sous ActiveCell)
    With ActiveWindow.ActivePane
        x = .PointsToScreenPixelsX(cell.Left)
        y = .PointsToScreenPixelsY(cell.Offset(1).Top + DécalageY)
    End With

    ' Déplacer le curseur et simuler le clic
    SetCursorPos x, y
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    DoEvents

    ' Restaurer la position du curseur
    SetCursorPos pt.x, pt.y
    DoEvents

    ' Retourne True si la cellule n’a pas changé => modal
    IsModal= (ActiveCell.Address = adrInit)
End Function

'Boucle sur tous les UserForms chargés
For Each UserForm In VBA.UserForms
    MsgBox IsModal(UserForm)
Next UserForm

Public mode As Boolean
Public Function ShowX(mode)
    With Me
        .mode = mode
        .Show mode
    End With
End Function

Function IsModal(TitreFen) As Boolean
 Dim c As New CUIAutomation, oExcel As IUIAutomationElement, oUSF As IUIAutomationElement
  Set oExcel = c.ElementFromHandle(ByVal Application.ActiveWindow.Hwnd)
  Set oUSF = GetUiElem(c, oExcel, "Name", TitreFen, TreeScope_Children)
  Debug.Print oUSF.CurrentName
  IsModal = oUSF.GetCurrentPropertyValue(UIAutomationClient.UIA_WindowIsModalPropertyId)
  Debug.Print IsModal
End Function
Function GetUiElem(c As CUIAutomation, _
                       Parent As IUIAutomationElement, _
                       TypeCondition, _
                       ValCondition, _
                       ByVal TreeScope As TreeScope) As IUIAutomationElement
Dim x As Integer, obj As IUIAutomationElement, Condition As IUIAutomationCondition
x = 0
Select Case TypeCondition
    Case "Name"
          Set Condition = c.CreatePropertyCondition(UIAutomationClient.UIA_NamePropertyId, ValCondition)
    Case "AutoId"
          Set Condition = c.CreatePropertyCondition(UIAutomationClient.UIA_AutomationIdPropertyId, ValCondition)
    Case "Class"
          Set Condition = c.CreatePropertyCondition(UIAutomationClient.UIA_ClassNamePropertyId, ValCondition)
    Case "CtrlType"
          Set Condition = c.CreatePropertyCondition(UIAutomationClient.UIA_ControlTypePropertyId, ValCondition)
    Case Else
          Set Condition = c.CreateTrueCondition
    End Select
Set GetUiElem = Parent.FindFirst(TreeScope, Condition)
End Function

Sub Test()
   Debug.Print IsModal("Affichage TB")
End Sub

' Running = 0  - ReadyForUserInteraction = 2
Debug.Print oUSF.GetCurrentPropertyValue(UIAutomationClient.UIA_WindowWindowInteractionStatePropertyId)