XL 2013 desactiver clavier

[cisco38]

bonjour
je souhaite désactiver entièrement le clavier et laisser la souris
une solution merci

 

[soan]

Bonsoir cisco,

* si c'est un clavier avec fil, débranche le cordon. (tu peux aussi utiliser des ciseaux)

* si c'est un clavier sans fil, enlève le dongle ou enlève les piles. (au choix)​

(j'ai pas d'autre solution à proposer)

---

remarque : tu auras du mal à taper les caractères sur le dos de la souris ! 😭

soan

 

[kiki29]

Salut, achtung solution kamikaze : voir ici

 

[Phil69970]

Bonjour @cisco38 , Soan, kiki29

Je te propose

Application.Interactive = False

'Ton code

'NE PAS OUBLIER DE REMETTRE A TRUE !!!
Application.Interactive = True

Attention je le répète :
NE PAS OUBLIER DE REMETTRE A TRUE !!!

@Phil69970

 

[soan]

Bonsoir Phil,

tu sais, couper le cordon avec des ciseaux, ça marche aussi bien ! 😂 🤣

(mais c'est p't'être un clavier sans fil ! 🙄)

---

en tout cas, perso, j'ai jamais eu besoin d'utiliser mon PC sans clavier ! 😁 🤪

soan

 

[Phil69970]

Coucou Soan

Autre solution.... bouton "OFF" du PC et plus de pb ....de PC....😵

@Phil69970

 

[patricktoulon]

bonjour
l'api blockinput j'ai jamais réussi a la faire fonctionner
mais tu peux bloquer certaine touches comme ça par exemple

Sub bloque()
k = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
t = Split(k, ",")
For i = o To UBound(t): Application.OnKey t(i), "": Application.OnKey UCase(t(i)), "": Next
'Application.OnKey "{BACKSPACE}", ""'ne fonctionne pas '
End Sub

Sub debloque()
k = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,{BACKSPACE}"
t = Split(k, ",")
For i = o To UBound(t): Application.OnKey t(i): Application.OnKey UCase(t(i)): Next
'Application.OnKey "{BACKSPACE}"'ne fonctionne pas '
End Sub

 

[soan]

Bonsoir patrick, le fil,

moi, j'ai une solution qui bloque toutes les touches,
avec une sub beaucoup plus courte que la tienne :

Spoiler: cliquer ici

Sub bloque()
  Do
  Loop
End Sub

bon, enfin, presque toutes les touches :
tu peux faire Ctrl Break ! 😁 😛

soan

 

[patricktoulon]

re bonsoir Soan
oui et le procc tourne comme un dingue exponentiellement en plus 🤣 🤣 🤣
t 'marrant dans ton genre

 

[soan]

oh, moi, j'me suis pas occupé d'ce léger p'tit détail ! j'vois pas trop en quoi ça gêne, puisque de toutes façons l'utilisateur veut plus utiliser son clavier : il préfère rester assis sur sa chaise, à admirer béatement son écran ! 😂 🤣 (c'est p't'être pour voir la démo d'son jeu Tomb Raider, avec la jolie Lara Croft ?)​

soan

 

[patricktoulon]

tu m'en donne de ce que tu prends 🤣 🤣 j'ai envie de m'amuser moi aussi

 

[soan]

ah, c'est qu'c'est ma potion secrète, ça ! (préparée par le druide Panoramix ! 😜)

soan

 

[Bernard_XLD]

à la barbare, mais ça fonctionne pour le clavier en laissant la souris fonctionnelle.
la saisie reste possible par double clic ou la barre de formule

Sub Bloque_Clavier()
Dim Compteur As Byte
On Error Resume Next
For Compteur = 1 To 255
Application.OnKey Chr(Compteur), ""
Next Compteur
End Sub
Sub Debloque_Clavier()
Dim Compteur As Byte
On Error Resume Next
For Compteur = 1 To 255
Application.OnKey Chr(Compteur)
Next Compteur
End Sub

 

[patricktoulon]

elle est plus simple la mienne et elle bloque aussi le pavé numérique

 

[Bernard_XLD]

mais tu peux bloquer certaine touches comme ça par exemple

Désolé Patrick, je n'avais pas vu que tu avais déjà évoqué cette solution sinon je t'eu cité 😓