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

Usine à gaz · 22 Avril 2022

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 :

VB:

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. · 22 Avril 2022

Hello

VB:

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

Mets des "" au lieu des "

Usine à gaz · 22 Avril 2022

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

VB:

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 · 27 Avril 2022

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 · 27 Avril 2022

Bonjour RF13 🙂
Merci pour tes codes,
lionel 🙂

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

Usine à gaz

XLDnaute Barbatruc

Clavier à interdire

galopin01 au #post 4 donne une solution :

Pièces jointes

D.D.

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

RF13

XLDnaute Nouveau

Usine à gaz

XLDnaute Barbatruc

Discussions similaires

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

Usine à gaz

XLDnaute Barbatruc

Clavier à interdire

galopin01 au #post 4 donne une solution :​

Pièces jointes

D.D.

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

RF13

XLDnaute Nouveau

Usine à gaz

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency

galopin01 au #post 4 donne une solution :