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

Merci beaucoup Yce pour ces réponses qui sont en plus claires et précises ;)

Bonjour,

Si cela peut t'aider, toute une série de solutions pour bloquer différentes actions
http://www.excelabo.net/xl/protection.htm
http://perso.wanadoo.fr/frederic.sigonneau/Bricolos.htm

Monique
Elle est pas belle la vie ?

tu dis que l'on peux désactiver ou protéger les feuille contre toutes les actions.
Je cherche actuellement à empêcher, sur une feuille protégé, le fait qu'on puisse changer son nom.
Je ne peux pas simplement protéger le classeur car toutes les autres feuilles du classeur ne sont pas concernées par cette protection.
Merci d'avance si une solution existe en vba.

youcef

Et non, tu ne peux pas supprimer les raccourcis windows comme ctrl+alt+sup par exemple, la est le probleme....
Du coup, je cherche tjs!

Poiloulpilou!

Bien sur que tu peux reaffecter des raccourcis clavier a Excel, de la meme maniere que tu les annules.
Du genre
application.onkey "+c", "" annule la fonction CTRL + C pour application.onkey "+c", "macro1" attrinue a CTRL + C la macro macro1
application.onkey "+c" reinitiolise CTRL + C (fonction copier).

Ainsi pur proteger un classeur correctement, c'est un peu lourd, mais c'est faisable, tu peux desactiver tous les menu d'EXCEL, annuler le clique droit, proteger toutes les feuilles, proteger le classeur et annuler tous les raccourcis., tous ca avec l'obligation d'activer les macros, et c'est a peu pres protege.

Bon courage

Mangda

C'est encore plus marrant de voir que 4 ans et 9 mois après ce post, je me repose encore la même question !!!
Il faudrait vraiment penser à créer des éxécutables depuis Excel ...

Grève de la signature

hé hé hé et oui fonctionnalité toujours inexistante ... et puis 7 ans après je fais encore la même chose .... faut vraiment que je change de métier !!!!

la userform d'excel correspond à peu de chose près à une appli indépendante que tu aurais toi même codé. tu la lance et une page s'ouvre par dessus ta page excel active. Après ca tu n'as plus qu'à dissimuler ta page excel en la réduisant ou avec .visible = false (j'ai pas vérifié si la syntaxe fonctionne), puis c'est tout. Pour mieux faire tu peux meme executer ta USF à l'ouverture du fichier puis l'enregistrer et quitter à la fermeture de la USF, tout en n'oubliant pas de te laisser un moyen sécurisé d'accéder à ton code. Via un cmdButton protégé par mdp par exemple. Voila je sais pas si ca aide...

(par contre pour faire ça faut manger pas mal de VBA)

Oui c'est comme ça que je m'en sors mais ça n'empêche pas que l'on peut rentre facilement dans Excel par un Echap ou autre subtile Shift pour zapper le Workbook Open ... donc faut vraiment appeler Bill Gates ....
Merci quand même :-)

En fait toute la question tient à ceci :
Comment réaliser avec Excel (ou Open-Office Calc) les applis que Multiplan permettait facilement il y a plus de vingt ans : une page de calcul débarrassée de toutes les barres de menus Microsoft et de toutes les lignes de menus Microsoft, mais où seuls celles que j'avais décidé de laisser ou de créer apparaissaient : l'utilisateur de la page ne pouvait alors que procéder aux calculs (et affichages) prévus. C'était l'enfance de l'art.
Et c'était exactement la même chose avec le gestionnaire de base de données dBase.

Maintenant que les concepteurs ont pris l'habitude de nous vendre des applis qui sont à la bureautique ce que les 38 tonnes sont à la mère de famille qui va chercher son pain à la boulangerie du coin ... maintennt que, donc, tut est devenu infiniment plus compliqué ...!