Discussion :

[riri2938]

Bonjour,
je voudrais rendre inopérant le clavier et la souris pendant la durée d'une procédure VBA. Est-ce possible ?
Merci coop.

[Tofalu]

Bonjour,
L'api Windows BlockInput peut être utilisée

The BlockInput function blocks keyboard and mouse input events from reaching applications.

Mais attention à mettre en place une gestion d'erreur solide : vous prenez le risque, si le processus Access est arreté sauvagement, que l'utilisateur ne puisse plus rien faire.

Déclaration dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BlockInput True

[riri2938]

Merci cela fonctionne, mais effectivement cela reste << dangereux >> en cas de plantage inopinée.
Y-aurait-il une solution pour scinder cette fonction en deux, une pour la souris, l'autre pour le clavier ?
Merci coop

[riri2938]

Je me permets de relancer la question sur la scission en deux de la fonction Block input