Créer un .exe sous Excel

ta méthode me semble fort intéressante, mais peux tu expliquer à quoi corresponds

boolFermeture = False

?

Et, est-ce que le temps que ce classeur est ouvert, ces paramètres s'appliquent aux autres classeurs ouvert ?

Si par exemple, j'ai un fichier A ouvert où j'ai besoin des ces fonctions, le fait d'ouvrir ce fichier B (qui contient tout ça) va t-il appliquer ces paramètres au fichier A ?

Application.ToutCeQuiSuit

est-il lié à Excel lui même ?

Bonjour sifusalade,

boolFermeture = False bloque la croix de fermeture du classeur, l'exemple que j'ai donné est un peu mal choisi parce que normalement il aurait fallu separer les chose a la fermeture:
je m'explique, dans le Workbook_BeforeClose il faut mettre:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Empêche la fermeture du classeur par la croix
If boolFermeture = False Then Cancel = True
End Sub

et pour fermer le fichier j'utilise un bouton qui commande la macro "fermeture" et dans le haut du module correspondant je rajoute : Public boolFermeture As Boolean

Pour repondre a ta question sur les parametres, ils s'appliquent a tous les fihiers ouverts dans la même session tant que celui-ci ne sera pas fermé, mais il y quand même une possibilité de rajouter un test en fonction du fichier actif pour gerer l'activation ou la desactivation des raccourcis et autres fonctions

"Application.ToutCeQuiSuit" ne s'applique qu'a la session Excel ouverte, si tu as un fichier word à coté, il ne sera pas impacté.

Dans l'exemple, j'ai séparé les choses pour que chacun puisse "jouer" avec les divers raccourcis, mais il y a plus simple si on veut oter tous les raccourcis.
_____________________________________________________
Dans Workbook_Open je remplace tous les "Application.ToutCeQuiSuit" par:
Desactive_Raccourcis
Dans Fermeture je remplace tous les "Application.ToutCeQuiSuit" par:
Active_Raccourcis
_____________________________________________________
Dans un module
_____________________________________________________
Sub Desactive_Raccourcis()
Dim Combin As Variant
Dim RacsArray As Variant
Dim Rac As Variant
Dim I As Long
On Error Resume Next
'Shift = "+"
'Ctrl = "^"
'Alt = "%"
'Shift-Ctrl, Shift- Alt, Ctrl-Alt, Shift-Ctrl-Alt

For Each Combin In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

RacsArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")

'Desactive les raccourcis clavier
For Each Rac In RacsArray
Application.OnKey Combin & Rac, ""
Next Rac

'Desactive les raccourcis numeriques
For I = 0 To 255
Application.OnKey Combin & Chr$(I), ""
Next I
'Desactive les raccourcis F1 - F15 avec Shift, Ctrl ou Alt
For I = 1 To 15
Application.OnKey Combin & "{F" & I & "}", ""
Next I
Next Combin
'Desactive les raccourcis F1 - F15
For I = 1 To 15
Application.OnKey "{F" & I & "}", ""
Next I
'Desactive PGDN and PGUP
Application.OnKey "{PGDN}", ""
Application.OnKey "{PGUP}", ""
End Sub
_____________________________________________________

et pour les reactiver avant la fermeture
_____________________________________________________

Sub Active_Raccourcis()
Dim Combin As Variant
Dim RacsArray As Variant
Dim Rac As Variant
Dim I As Long

On Error Resume Next

'Shift = "+"
'Ctrl = "^"
'Alt = "%"
'Shift-Ctrl, Shift- Alt, Ctrl-Alt, Shift-Ctrl-Alt

For Each Combin In Array("+", "^", "%", "+^", "+%", "^%", "+^%")
RacsArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")
' Active les raccourcis clavier
For Each Rac In RacsArray
Application.OnKey Combin & Rac
Next Rac
' Active les raccourcis numeriques
For I = 0 To 255
Application.OnKey Combin & Chr$(I)
Next I
' Active les raccourcis F1 - F15 avec Shift, Ctrl ou Alt
For I = 1 To 15
Application.OnKey Combin & "{F" & I & "}"
Next I
Next Combin
' Active les raccourcis F1 - F15
For I = 1 To 15
Application.OnKey "{F" & I & "}"
Next I
'Active PGDN and PGUP
Application.OnKey "{PGDN}"
Application.OnKey "{PGUP}"
End Sub