Posez votre question Signaler

Créer un .exe sous Excel

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention - Dernière réponse le 8 mars 2012 à 13:12

Salut tout le monde,
J'ai créé un bel outil sous Excel et je voudrais savoir si on peut faire qq chose pour pouvoir l'ouvrir sans aller fouiner dans le code ( mais sans utiliser la protection du doc).
Autrement dit, je voudrais créer une sorte d'exécutable pour qu'il ne puisse pas avoir accès aux fonctionnalité d'Excel.
Est-ce possible ???
Merci d'avance.

Grève de la signature

Créer un .exe sous Excel »

Suggestions

Créer un .exe sous Excel
Créer une liste déroulante excel (Résolu) » Forum
Comment créer un tableau sur excel (Résolu) » Forum
Listes déroulantes simples avec Excel » Fiches pratiques
Comment faire un Menu déroulant dans excel ? (Résolu) » Forum
Comment créer un graphique sous excel 2007 (Résolu) » Forum

Plus

Réponse

Yce 2 mars 2012 à 12:05

Bonjour Chacalou13,
Je ne sais pas si cela peut t'aider, mais moi, je protege mes fichiers comme ceci pour que les utilisateurs ne triffouillent pas de trop. en prime mes feuilles et mon code vba sont protegés par mot de passe. je sais bien qu'il est toujours possible de "Bidouiller" mais ça marche pour la plupars des utilisateurs.
Cela se passe en 2 temps. D'abord, a l'ouverture, blocage de tous les raccourcis et affichage en plein ecran sans les onglets.
Ensuite, a la fermeture, reactivation de toutes ces options (il vaut mieux)

Dans "ThisWorkbook":

'_______________________________________________________
Private Sub Workbook_Open()

Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.CommandBars(1).Enabled = False
Application.DisplayStatusBar = False
boolFermeture = False

'desactivation raccourcis claviers

'Alt
Application.OnKey "%{F1}", ""
Application.OnKey "%{F2}", ""
Application.OnKey "%{F3}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F5}", ""
Application.OnKey "%{F6}", ""
Application.OnKey "%{F7}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "%{F9}", ""
Application.OnKey "%{F10}", ""
Application.OnKey "%{F11}", ""
Application.OnKey "%{F12}", ""
'Direct
Application.OnKey "{F2}", ""
Application.OnKey "{F3}", ""
Application.OnKey "{F4}", ""
Application.OnKey "{F5}", ""
Application.OnKey "{F6}", ""
Application.OnKey "{F7}", ""
Application.OnKey "{F8}", ""
Application.OnKey "{F9}", ""
Application.OnKey "{F10}", ""
Application.OnKey "{F11}", ""
Application.OnKey "{F12}", ""
'Ctrl
Application.OnKey "^{F1}", ""
Application.OnKey "^{F2}", ""
Application.OnKey "^{F3}", ""
Application.OnKey "^{F4}", ""
Application.OnKey "^{F5}", ""
Application.OnKey "^{F6}", ""
Application.OnKey "^{F7}", ""
Application.OnKey "^{F8}", ""
Application.OnKey "^{F9}", ""
Application.OnKey "^{F10}", ""
Application.OnKey "^{F11}", ""
Application.OnKey "^{F12}", ""
'shift
Application.OnKey "+{F1}", ""
Application.OnKey "+{F2}", ""
Application.OnKey "+{F3}", ""
Application.OnKey "+{F4}", ""
Application.OnKey "+{F5}", ""
Application.OnKey "+{F6}", ""
Application.OnKey "+{F7}", ""
Application.OnKey "+{F8}", ""
Application.OnKey "+{F9}", ""
Application.OnKey "+{F10}", ""
Application.OnKey "+{F11}", ""
Application.OnKey "+{F12}", ""

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call fermeture

End Sub

Dans un module:
'____________________________________________
Sub fermeture()
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.CommandBars(1).Enabled = True
Application.DisplayStatusBar = True
Application.DisplayFullScreen = False
boolFermeture = True
ActiveWorkbook.Close True

'Activation raccourcis claviers

'Alt
Application.OnKey "%{F1}"
Application.OnKey "%{F2}"
Application.OnKey "%{F3}"
Application.OnKey "%{F4}"
Application.OnKey "%{F5}"
Application.OnKey "%{F6}"
Application.OnKey "%{F7}"
Application.OnKey "%{F8}"
Application.OnKey "%{F9}"
Application.OnKey "%{F10}"
Application.OnKey "%{F11}"
Application.OnKey "%{F12}"
'Direct
Application.OnKey "{F2}"
Application.OnKey "{F3}"
Application.OnKey "{F4}"
Application.OnKey "{F5}"
Application.OnKey "{F6}"
Application.OnKey "{F7}"
Application.OnKey "{F8}"
Application.OnKey "{F9}"
Application.OnKey "{F10}"
Application.OnKey "{F11}"
Application.OnKey "{F12}"
'Ctrl
Application.OnKey "^{F1}"
Application.OnKey "^{F2}"
Application.OnKey "^{F3}"
Application.OnKey "^{F4}"
Application.OnKey "^{F5}"
Application.OnKey "^{F6}"
Application.OnKey "^{F7}"
Application.OnKey "^{F8}"
Application.OnKey "^{F9}"
Application.OnKey "^{F10}"
Application.OnKey "^{F11}"
Application.OnKey "^{F12}"
'shift
Application.OnKey "+{F1}"
Application.OnKey "+{F2}"
Application.OnKey "+{F3}"
Application.OnKey "+{F4}"
Application.OnKey "+{F5}"
Application.OnKey "+{F6}"
Application.OnKey "+{F7}"
Application.OnKey "+{F8}"
Application.OnKey "+{F9}"
Application.OnKey "+{F10}"
Application.OnKey "+{F11}"
Application.OnKey "+{F12}"
End Sub

Ajouter un commentaire

Réponse

Pitu 1398Messages postés 3 octobre 2002Date d'inscription 4 avril 2012Dernière intervention 21 août 2003 à 10:49

Diantre !!!
Pas courant, ce que tu cherches à faire.
Ca tient plus de la programmation VB qu'à de la feuille de calcul (au passage, je te rappelle qu'Excel n'est qu'un tableur, à l'origine ... ;o) )
Et cette feuille, elle doit faire quoi ? Calculer et afficher un résultat ? Imprimer quelque chose ?
En tout cas, ça me parait pas gagné, ton affaire ...
(:•Þ Pitu

Ajouter un commentaire

Réponse

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention 21 août 2003 à 10:58

En fait c'est un outil de consultation.
Donc un Menu qui mène à d'autres feuilles, grace à des macros, des filtres élaborés, etc...
Le tout mixé avec un poil de VBA pour le faire apparaitre en plein écran , et lui donner ainsi l'apparence d'une application.
Le pb, c'est qu'avec un minimum de connaissance, tu peux facilement casser ce mode plein ecran (et même faire des modif à l'aide des raccourcis clavier).
Bref, j'essaie donc de trouver un moyen de faire qu'on ne puisse plus faire de mal à mon appli mais sans utiliser la protection du classeur .
Ouf c'est dit ....

Grève de la signature

Ajouter un commentaire

bmgg4- 21 août 2003 à 19:40

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 ?

Réponse

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention 21 août 2003 à 21:19

Merci bcp, je vais aller un peu fouiner par là-bas..

Grève de la signature

Ajouter un commentaire

Réponse

filaliabdou 376Messages postés 11 février 2002Date d'inscription 29 juillet 2011Dernière intervention 21 août 2003 à 23:42

tu peux désactiver ou protéger les feuille contre toutes les actions.
sinon tu peux caher ton code avec un mot de passe (faut voir dans les options de Visual Basic Editor) comme ça ton code sera protégé

mais pour produire un executable sous excel , c'est impossible , je le confirme, j'ai même assisté à un séminaire de Microsoft où cette question à été posée.

time is not money, time is life

Ajouter un commentaire

Afficher les 13 commentaires

haque_coucou- 8 janv. 2004 à 16:27

Cela depend de ce que tu veux faire.
Les usagers de ton appli ont ils besoin de voir ta feuille ou non?

Si oui, ben ca va etre dur car j'ai un peu regardé et il est vrai que la fonction protect peut tout verrouiller excepter le nom d'onglet...

Si non, alors là c'est assez simple, meme pas besoin de code: tu vas dans ces propriete vba et tu lui dis SheetNotVisible.

Tiens moi au courant ;-)

Poiloulpilou!

yba - 9 janv. 2004 à 09:46

Bonjour,
Merci très beaucoup pour ta réponse,
malheureusemnt je m'attendais à ce que soit non positif car cette feuille doit rester pour de multiples raisons visible car par exemple quand on ouvre un classeur vierge de tout travail cette feuille est la seule présente et dans ce cas je ne peux pas la rendre non visible.
En tout les cas merci pour le coup de main.
Je continue à réfléchir et je tiens au courant en cas de miracle.
A bientôt.
youcef

haque_coucou- 9 janv. 2004 à 09:49

Dans ces cas la, tu n'as pas 36 solutions.
La seule que je vois, c'est de faire la mise a jour du nom a chaque evenement du classeur: on open, on change... C'est la seule maniere, a ma connaissance d'avoir un minimum de probleme sur ce nom de feuille...

Poiloulpilou!

yba › yba - 9 janv. 2004 à 15:39

Je n'ai pas saisi ton astuce, de quel évenement parles-tu ?

haque_coucou- 9 janv. 2004 à 15:48

En fait,tu ne peux pas empecher le changement de nom mais tu peux le reinitialiser quand ca t'interesse et sans trop charger ta machine. Par exemple, a chaque ouverture du classeur (on open) tu renomme ta feuille a ta convenance. A chaque fermeture aussi (on close) etc.
Tu vois ce que je veux dire?

Poiloulpilou!

yba › yba - 9 janv. 2004 à 16:07

J'ai du mal à te suivre , je m'explique :
L'utilisateur ouvre le fichier il cree un nombre d'onglets aléatoire.
A un moment il change le nom de cet onglet par mégarde.
Comment à ce moment la que ce soit à la fermeture du fichier ou à la prochaine ouverture de celui-ci je peux savoir quel onglet a été changer de nom parmi les n présents ?
Pour l'instant en attendantmieux j'avertis verbalement l'utilisateur que le changement de nom de cet onglet est interdit.
faute de grive .......

haque_coucou- 9 janv. 2004 à 16:11

Ha ben pi mais non,la...
Soit tu pris tres fort pour que ton onglet soir tjs placer en 1er et dans ce cas tu peux le renommer en aveugle soit....
Non, je blague. En informatique,il y a tjs un moyen.
Par exemple, tu testes toutes tes feuilles sur des données succeptibles de s'y trouver: Par exemple le titre en A1 ou des données situées dans des cellules cachées...

Poiloulpilou!

yba › yba - 9 janv. 2004 à 16:18

J'ai effectivement pensé à ce genre de test, cela devrait fonctionner.
Une autre question :
Je crée un nouveau menu au lancement du fichier.
Je veux rendre inactif (propriété enabled à faux) un élément d'un menu après sa création, est-ce possible ?
Quand je parcours la collection "commanBar", celle-ci comporte tous les menus et sous menus de Excel sauf le mien !!!
Une idée ?
Merci d'avance.
Désolé pour l'abus.
youcef

haque_coucou- 9 janv. 2004 à 16:27

Ce que tu veux masquer, c'est une des commande de menu par defaut ou c'est une des commandes de TON menu?
Si c'est ta barre,voila la commande:

Application.CommandBars("ma_barre").Visible = false si tu veux masquer ta barre entiere

Application.CommandBars("ma_barre").Controls(1).visible)false
si tu veux juste masquer le 1er bouton de ta barre

Ca roule?

Poiloulpilou!

yba › yba - 9 janv. 2004 à 16:34

Je me suis mal exprimé.
Je voudrais rendre inactif un élément de mon menu, pas d'un menu prédéfini.
Quand j'essaye d'accéder à ce menu dans un autre module de code alors celui-ci ne m'est pas accessible !
Què qten penses ti ?
youcef

haque_coucou- 9 janv. 2004 à 16:39

Quel est exactement cet element de ton menu stp?
Si il s'agit d'un element de TON menu, celui que tu as creer,okay, pas de pb, tu appliques la commande que je t'ai donné et c'est bon...

Poiloulpilou!

yba › yba - 9 janv. 2004 à 17:03

Ce que tu dis dois effectivement marcher, je m'en vais tester fissa fissa.
En tous les cas merci beaucoup de ta patience et de ta compréhension et j'espère à bientôt sur les ondes.

Je suis un fan de science fiction et dans ce genre il est de bon ton de penser que nous ne sommes pas seuls.
Alors la je confirme car à part sur Internet, comment trouver un fan de Johnny "Ah que coucou" baleise en VBA !!! ;-)
Je ne pense pas que je puisse un jour te donner des conseils en vba un jour mais sinon tu peux compter sur moi.
Encore une fois merci
youcef

Réponse

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention 22 août 2003 à 09:34

Bonjour et Merci Mr filaliabdou,

Eh bien tant pis pour moi.
Je vais protéger les feuilles une à une, à l'ancienne.
Je vais écrire à Billou pour qu'il rajoute cette fonctionnalité :-)), ca pourrait être partique.
Parce que avoir le message d'erreur d'Excel quand tu essaies de remplir un champ protégé, c'est pas forcément très esthétique...

Ajouter un commentaire

Réponse

Haque_coucou 1 oct. 2003 à 10:00

Bijour!
Je travail sur excel et le code VBA derriere toute la journee.
Je peux t'assurer que tu peux tout verrouiller avec le code VBA, si tu as des questions, ecris moi à haque_coucou@hotmail.com
Par contre, le point bloquant que j'essai de resoudre en ce moment, c'est la desactivation/réaffectation des raccourcis windows.
Si quelqu'un a des idees la dessus....

Bizoo a tous ;-)

Ajouter un commentaire

Réponse

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention 1 oct. 2003 à 18:56

Salut Haque_coucou,

Effectivement, mais ce post date un peu, et j'ai trouvé la solution depuis.
Pour ton problème, je crois que tu peux assez facilement supprimer tous les raccourcis clavier en VB.
Quand à la réaffectation , là ça me semble plus dur...

Grève de la signature

Ajouter un commentaire

haque_coucou- 21 oct. 2003 à 10:02

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!

Francois - 10 nov. 2003 à 13:54

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

Réponse

haque_coucou 8Messages postés 2 janvier 2003Date d'inscription 22 déc. 2003 à 11:04

Oui mais non!
Ca ne fonctionne pas pour les raccourcis alt+tab, alt+esc
par exemple.
Si quelquun a une solution la dessus...

Poiloulpilou!

Ajouter un commentaire

Réponse

Chacalou13 397Messages postés 10 juin 2003Date d'inscription 20 février 2012Dernière intervention 21 févr. 2007 à 10:38

C'est assez marrant de voir que 3 ans et 6 mois (au jour près !!!) après ce post, je me repose la même question !!!

Et qu'en cherchant sur gogole je tombe sur mon propre message !

Ajouter un commentaire

Chacalou13- 2 juin 2008 à 11:09

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

Réponse

Chacalou13 27 juil. 2009 à 16:55

faut vraiment que je change de métier ...

Ajouter un commentaire

Réponse

Mumu003 9 avril 2010 à 10:43

A quand ta recherche pour l'année 2010 ?
héhéhé...

Ajouter un commentaire

Afficher les 11 commentaires

Chacalou13- 9 avril 2010 à 18:01

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 !!!!

Théo - 3 août 2010 à 15:51

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...

Théo - 3 août 2010 à 15:52

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

Chacalou13- 3 août 2010 à 22:36

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 :-)

Tonton Léon - 16 déc. 2010 à 04:47

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é ...!

Chacalou13- 16 déc. 2010 à 09:15

C'est vrai mais ca ne fait malheureusement pas avancer le schmilblick !!!!

Chacalou13- 21 sept. 2011 à 17:07

le petit message de 2011 .... pour la forme

fab59 - 23 sept. 2011 à 16:03

je tourne en rond depuis très longtemps, je me pose le même genre de question

Chacalou13- 23 sept. 2011 à 16:24

regarde la date du message original .... je crois qu'en 8 ans ils auraient pu intégrer cette fonctionnalité ;-)
pffffffffff j'étais jeune à l'époque ... l'insouciance ..... ahhhhh nostalgie ...

Donex - 19 févr. 2012 à 00:42

Doneex. Vive 2012 !

Chacalou13- 20 févr. 2012 à 09:19

ah ah ah .... je veux intégrer le livre des records.
Le topic le plus long du web ... 9 ans à se poser la même question ...
A l'année prochaine ...

Réponse

Ori 8 mars 2012 à 13:12

Sinon à venir, à voir ce que ça donne: www.xlExe.com, le programme était en ligne pendant 3 jours, mais n'y est plus.

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Créer un .exe sous Excel

Créer un .exe sous Excel »

Passage au tout numérique : quel coût pour les particuliers ?