XL 2013 desactiver clavier

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 10 Mars 2021

• #3

Salut, achtung solution kamikaze : voir ici

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 10 Mars 2021

• #4

Bonjour @cisco38 , Soan, kiki29

Je te propose

VB:

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mars 2021

• #5

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 10 Mars 2021

• #6

Coucou Soan

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

@Phil69970

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Mars 2021

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mars 2021

• #8

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

VB:

Sub bloque()
  Do
  Loop
End Sub

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

soan

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Mars 2021

• #9

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mars 2021

• #10

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Mars 2021

• #11

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mars 2021

• #12

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

soan

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 10 Mars 2021

• #13

à 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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Mars 2021

• #14

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 10 Mars 2021

• #15

patricktoulon à dit:

mais tu peux bloquer certaine touches comme ça par exemple

Cliquez pour agrandir...

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

 

Dernière édition: 10 Mars 2021

Vote positif 0 Vote négatif