Re : empecher fermeture USF
Bonsoir phlaurent55, le Forum,
Voici quelques interdictions possibles, glanées au fil des posts :
interdire l'utilisation de la touche Suprime (Del) dans une feuille Excel.
Application.OnKey "{SUPPR}", ""
et pour rétablir
Application.OnKey "{SUPPR}"
interdire toute utilisation du clavier ?
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
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.
En espérant que ca te sera profitable