Clavier à interdire

[PYM]

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.

Merci

 

[galopin01]

bonjour,
Application.OnKey '{SUPPR}', ''
et pour rétablir
Application.OnKey '{SUPPR}'
Ok ?

 

[PYM]

Bonjour à vous Galopin01

et merci pour cette réponse rapide.

C'est OK avec la touche suprime, mais par contre je peux modifier le contenu de la cellule avec les autres touches...

Alors connaissez-vous une méthode plus radicale : interdire toute utilisation du clavier ?

Merci et bon week-end

 

[galopin01]

re :
Sub Test() 'désactive les raccoucis
For i = 65 To 90
Application.OnKey '^{' & i & '}', ''
Next
End Sub

Sub Test2() 'réactive les raccourcis
For i = 65 To 90
Application.OnKey '^{' & i & '}'
Next
End Sub

Sub Test3() '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 Test4() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey '{' & i & '}'
Next
End Sub

Sub Test5() 'désactive ...le reste (avec un peu d'imagination)
With Application
.OnKey '{F1}', ''
'...
.OnKey '{F12}', ''
.OnKey '^{F4}', ''
.OnKey '%{F4}', ''
.OnKey '^', ''
.OnKey '%', ''
.OnKey '{HOME}', ''
.OnKey '{FIN}', ''
.OnKey '{SUPPR}', ''
.OnKey '{TAB}', ''
.OnKey '{PGSUIV}', ''
.OnKey '{PGPREC}', ''
End With 'Prévoir la sortie !!!!!!!!!!!!!!!!!!!!!!!!!
End Sub

Ok ?

Message édité par: galopin01, à: 11/03/2005 15:52

 

[JeanMarie]

Bonsoir tout le monde

Interdire toute action sur Excel, c'est possible avec cette propriété
Application.Interactive = False

ATTENTION, cette propriété est très dangereuse, ne pas oublier de remettre à True à la fin de la macro.
Enregistrer le fichier avant toutes actions sur votre fichier, une erreur dans le code, et plouf c'est l'arrêt par Crtl+Alt+Suppr

Contenu de l'aide de VBA
Cette propriété a la valeur True si Microsoft Excel est en mode interactif. Cette propriété a généralement la valeur True. Si vous lui affectez la valeur False, Microsoft Excel empêchera toute interaction à partir du clavier et de la souris (à l'exception de la saisie dans les boîtes de dialogue affichées par votre code). L'utilisateur ne risque ainsi pas d'entraver l'exécution de la macro qui déplace ou active des objets Microsoft Excel. Type de données Boolean en lecture-écriture.

Cette fonction n'a aucun effet sur environnement Mac.

@+Jean-Marie

 

[PYM]

Merci à tous, j'ai eu un problème avec mon PC (connexion impossible ???) c'est pour cette raison que je n'ai pu vous remercier rapidemant.

Je vais maintenant tester cela

Joyeuses paques...

 

[pat1545.]

Interdire le clavier ; dis ça à mon chef !

plus sérieusement , quel est le but ?

Patrick




Alors connaissez-vous une méthode plus radicale : interdire toute utilisation du clavier ?

Merci et bon week-end[/quote]