Microsoft 365 désactiver/réactiver l'alphabet

[Usine à gaz]

Bonjour à toutes et à tous 🙂

Je souhaite faire ou trouver (plutôt trouver vu mon niveau lol) un code qui permet de désactiver et de réactiver l'alphabet.
Je suis en recherche un peu partout et j'ai déjà fait un bon nombre de tests sans résultat pour l'instant.

En revanche, j'ai trouvé (peu être le bonheur 🙂) sur ce fil :

Clavier à interdire

Bonjour à tous, Est-il possible d'interdire l'utilisation de la touche Suprime (Del) dans une feuille Excel. En effet, je réalise un planning accèssible uniquement à la souris et je veux empecher toute modification via le clavier. Travaille sous NT et/ou XP version 97 et 2002 d'excel...

www.excel-downloads.com

galopin01 au #post 4 donne une solution :​

Sub désactive() 'désactive l'alphabet
For i = 65 To 90 'on doit pouvoir aller de 33 à 126... (a vérifier!)
Application.OnKey '{' & i & '}', ''
Next
End Sub

Sub réactive() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey '{' & i & '}'
Next
End Sub

Mais qui ne fonctionne pas et que je n'arrive pas à modifier :

Sauriez-vous la faire fonctionner ?
Je joins un petit fichier test.
Avec mes remerciements,
Amicalement,
lionel 🙂

 

[D.D.]

Hello

Application.OnKey "{" & i & "}", ""

Mets des "" au lieu des "

 

[Usine à gaz]

Bonjour D.D. 🙂
Merci du retour.
J'ai fait ça :

Sub désactive() 'désactive l'alphabet
For i = 65 To 90 'on doit pouvoir aller de 33 à 126... (a vérifier!)
Application.OnKey "{" & i & "}", ""
Next
End Sub

Sub réactive() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey "{" & i & "}"
Next
End Sub

ça semble fonctionner, je continue à tester.
Encore merci 🙂
lionel 🙂

 

[RF13]

Bonjour,

Je vous propose les fonctions suivantes. Elles fonctionnent.

Sub désactive() ' désactive les lettres de l'alphabet : a..z et A..Z
' soit des codes ASCII : 65 à 90 et 97 à 122
Dim c As String, i As Integer
For i = 65 To 90 ' les majuscules
c = Chr(i)
Application.OnKey c, ""
Next
For i = 97 To 122 ' les minuscules
c = Chr(i)
Application.OnKey c, ""
Next
End Sub

Sub réactive() ' réactive les lettres de l'alphabet : a..z et A..Z
Dim c As String, i as integer
For i = 65 To 90
c = Chr(i)
Application.OnKey c
Next
For i = 97 To 122
c = Chr(i)
Application.OnKey c
Next
End Sub

 

[Usine à gaz]

Bonjour RF13 🙂
Merci pour tes codes,
lionel 🙂