> Tous les forums > Forum Bureautique
 Ouvrir un fichier avec des conditions?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
supersaxo7
  Posté le 10/08/2006 @ 07:53 
Aller en bas de la page 
Petit astucien

Bonjour [hello] Que dois-je établir dans le Workbook pour rendre inopérante l'ouverture d'un fichier Excel intitulé "Exemple", sans qu'en arrière-plan la condition qu'un autre fichier intitulé "Témoin" ne soit bien présent dans le même répertoire (ou un autre, qu'importe) merci
Publicité
galopin01
 Posté le 10/08/2006 à 09:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, Comme ça brut de fonderie, je dirais :A priori. Il n'y a pas moyen. Dès lors que l'utilisateur ouvre le fichier (par l'explorateur Windows, ou par Fichier / Ouvrir, s'il intercepte les macros d'ouverture, il peut bien faire ce qu'il veut. Mais il faut voir quel est exactement le problème. Il me semble que tu résumes la chose de manière superficielle. En particulier : Dans quelle condition est ouvert le classeur ? Quel est l'environnement de travail ? Si le classeur est nommé 1oT5vuJJ.DAT ou AbrCAlM.Frx, il est tout à fait improbable qu'un utilisateur lambda le déniche si de surcroit ce fichier se trouve dans un répertoire un peu éloigné du répertoire par défaut d'EXCEL. Surtout si ce fichier est ouvert habituellement par une macro : Dans ce cas il n'est même pas visible dans l'historique des derniers fichiers ouvert. Enfin tu peux lui donner la propriété Hidden : dans ce cas selon l'option choisi dans l'affichage de Windows, il n'est même pas visible dans le navigateur. Alors il n'y a guère qu'une macro qui ira le chercher ou tu l'as mis... A+

Modifié par galopin01 le 10/08/2006 10:40
supersaxo7
 Posté le 22/08/2006 à 09:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Galopin, et toutes mes excuses pour le retard avec ma réponse... (vacances en Italie) (sourire) Ce que je désire tout simplement, c'est que mon fichier "Exemple" ne puisse s'ouvrir qu'en présence (dans le même répertoire) du fichier "témoin" qui sert de source de données. Si ce fichier "témoin" est absent du répertoire, un message à l'ouverture de mon fichier "Exemple" doit dire : ne peut s'éxécuter, car ne trouve pas le fichier "témoin" je te signale pour info que l'autre fichier "programme de travail" avec toutes ses macros roule au top et fait l'admiration de tous (encore merci) je ne manque jamais de relever ton aide combien précieuse [bigsmile]
galopin01
 Posté le 22/08/2006 à 10:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonjour, Si tu ne réponds pas à mes questions ça va être dur d'avancer...
Dans quelle condition est ouvert le classeur ?
Par macro ou par le navigateur ? Quel est le pourquoi de la question ? Comme énoncé précédement, celà suppose une certaine coopération de l'opérateur : Un opérateur mal intentionné ou curieux peut faire n'importe quoi dans la mesure ou il peut intercepter l'exécution de la macro... Dans la situation la plus favorable (éviter une maladresse) et sans aucune autre arrière pensée, il suffit de faire un Dir dans ThisWorkbook_Open : [code]Private Sub Workbook_Open() If Dir("MonfichierTémoin.xls") = "" Then MsgBox "Fichier absent" ActiveWorkbook.Close 'ou : Application.Quit End If End Sub[/code] Si le classeur sensible est ouvert par macro il n'y a pas de problème : On fait le test de présence avant, et on n'ouvre que si le test est positif. Cette observation amène la suggestion suivante : On peut cacher le classeur sensible sous un autre nom "1oT5vuJJ.DAT" et faire en sorte qu'il ne s'ouvre que si les macros sont acceptées dans le classeur "appât" baptisé "MonClasseurSensible.xls" Pour des situations plus compliquées et pour continuer sur ce topic un exposé extrèmement détaillé de la problématique est indispensable. A+

Modifié par galopin01 le 22/08/2006 10:53
supersaxo7
 Posté le 22/08/2006 à 13:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut grand chef !! [hello] je ris de bon coeur, en lisant tes remarques! On voit bien le côté "excellence" du bonhomme ;o))) ... et j'aime. alors première remarque: le fichier Excel s'ouvre (s'ouvrait) avec le navigateur, avec l'Explorateur, avec Fichier/Ouvrir... Maintenant je ne sais plus. Selon tes suggestions il serait plus facile (pour le cacher), de l'ouvrir avec l'aide d'une macro. Mais dans ce cas le résultat ne serait-il pas pareil, en interceptant (comment?) la macro qui va chercher et ouvrir le fichier de travail EXEMPLE (ou dénommé 1oT5vuJJ.DAT ou AbrCAlM.Frx)? Mais encore, comment Excel peut ouvrir un fichier avec des extensions pareilles? Deuxième remarque: je ne cherchais pas à faire autre chose qu'un fichier basique, sans trop de chichi... Je ne cherche pas à déjouer la malice de grands fraudeurs ou le génie d'Excelciens de ton genre Galopin, car ils parviendront toujours à leur fin... je ne m'intéressais qu'à l'utilisateur lambda. Bien sûr qu'en lisant tes réponses j'en viens à remettre en question ma manière d'envisager les choses. Ce que tu suggères me plaît. Si j'ai bien compris, le fichier de travail que j'intitule EXEMPLE serait un leurre, et ne servirait au travers d'une macro, qu'à ouvrir le véritable fichier de travail 1oT5vuJJ.DAT. Donc l'utilisateur lambda en copiant le fichier de travail EXEMPLE ne se retrouverait finalement qu'avec un fichier bidon? [smile] Est-ce bien celà que tu exprimes grand chef ??
galopin01
 Posté le 22/08/2006 à 15:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
C'est celà même. Bien sur, il faut que le code soit caché ce qui n'est pas difficile à faire. Bon c'est pas à l'épreuve d'un malin, mais juste pour dissuader le curieux... Le fichier n'étant ouvert qu'après vérification de la présence du "témoin" ça protège un peu de la "copie sauvage." Après il reste à savoir ce qu'on veut faire de ce fichier... (parce que une fois ouvert par des moyens légaux, si le fichier est peu ou mal protégé, un utilisateur pas trop idiot comprendra très vite la supercherie...) C'est là que j'ai besoin de comprendre le besoin réel et toute la mécanique du truc. Nota : Bien sur Excel est tout à fait capable d'ouvrir des fichiers avec une extension différente de .xls. Avantage : Ces fichiers n'apparaissent pas quand tu fais fichier ouvrir(sauf si tu fais *.*) Ils ne sont connu que du programme qui est censé les utiliser : cela clarifie d'autant ton arborescence... A+
supersaxo7
 Posté le 23/08/2006 à 08:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hello Galopin [hello] merci pour ta réponse... Comme tu l'as compris, pour moi l'utilisateur malin ne m'intéresse pas. S'il est capable de démonter la supercherie qui camoufle le fichier, celà veut dire qu'il est sûrement aussi capable de créer le même fichier Excel que moi. Alors s'il en profite, c'est tout bénéf pour lui, et celà ne me dérangerait pas, au contraire. Par contre l'utilisateur lambda simplet, celui là, je n'aimerais pas qu'il utilise mes applications à des fins détournées [feroce] Alors, comment monter cette routine de mystification dont la mécanique resterait cachée au commun des mortels, et enfantine à un spécialiste tel que toi ? le fichier de travail Excel que j'intitule EXEMPLE serait un leurre, et ne servirait au travers d'une macro, qu'à ouvrir le véritable fichier de travail 1oT5vuJJ.DAT Je sens que celà va être passionnant cette affaire [rigoler] Comme un élève attentif, j'attends avec délices les formules magiques que tu vas nous sortir [clindoeil] [merci]
galopin01
 Posté le 23/08/2006 à 10:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, La sécurité est un état d'esprit. Elle ne s'improvise pas ! Il est inutile d'acheter des serrures coûteuses pour protéger le coffret à bijou si les portes (ou les fenêtres) sont toujours ouvertes… Cette précaution oratoire pour bien rappeler qu'on est vraiment dans le domaine du bricolage... Voici le principe d'un leurre simpliste à mettre en place. Dans cet exemple [url="http://perso.wanadoo.fr/galopin01/Perso/Bidon.zip"]Bidon[/url] les 3 fichiers doivent être placés dans le même répertoire. Mais bien sur l'utilisation normale est de travailler sur 2 répertoires différents. (en précisant bien sur le chemin des fichiers à ouvrir dans la macro) Après on peut jouer sur un tas de paramètres (nom, emplacement et attributs des différents fichiers). C'est juste un jeu de piste… Bien sur le complément minimum est de protéger le code VBA de "Bidon.xls" et "TestSafe" Remarquer que "TestSafe" étant nommé sans extension n'apparaît pas dans Fichier / Ouvrir Remarque : Le fichier "Clef.dat" est un peu inutile dans la mesure ou (pour bien faire) le nom du fichier à ouvrir est tributaire des chemins de fichiers si on déplace le fichier "TestSafe" ailleurs ou "Bidon.xls" sur une autre machine, bien sur ça ne marche pas… A+

Modifié par galopin01 le 23/08/2006 11:55
supersaxo7
 Posté le 24/08/2006 à 16:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Galopin01 j'ai bien compris le principe que tu appliques pour invalider l'ouverture du fichier Testsafe, mais je ne trouve rien de macro dans le fichier bidon.xls!!! rien de rien, c'est à n'y rien comprendre. j'ai installé bidon.xls, clef.dat et TestSafe dans le même répertoire. Je peux ouvrir TestSafe directement avec Excel. Je peux accéder à la macro dans le Workbook, pas de problème, jusque là, je comprends [top] où je ne comprends plus c'est en ouvrant le fichier bidon.xls... normalement je devrais accéder ainsi au fichier TestSafe (le véritable fichier). En fait je suis dans les pommes, car je ne sais pas ce qu'il se passe, car je ne vois rien (tu diras ça m'étonne pas [timide]). mais ce qui est aussi bizarre, c'est que si je supprime le fichier TestSafe du répertoire, je peux ouvrir bidon.xls avec le même résultat que précédemment. où est l'erreur ??? J'ai besoin d'explication ami Galopin01 [papy]
Publicité
galopin01
 Posté le 24/08/2006 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Ben. C'est quand même fait exprès qu'on ne voie rien ! Sinon ça servirait à quoi que galopin y se décarcasse ! Pour l'instant nous mettons tout dans le même répertoire. TestSafe est ton fichier sensible (de travail) : celui dont tu souhaites sécuriser l'accès. Son nom et son emplacement sont censés être dans un endroit éventuellement autre... On peut l'appeler "exemple" ou "1oT5vuJJ.DAT" celà ne change rien. Ce nom ne doit pas être connu des utilisateurs qui n'iront jamais le chercher ou tu vas le mettre, vu le nom zarbi et l'emplacement, il est tout à fait improbable qu'ils le retrouve parmi les quelques 100000 fichier de ton PC. Encore une fois, on peut-même le déclarer "hidden" (caché) Bien sur, toi qui le connait tu peux l'ouvrir sans problème. Il se caractérise par ces quelques mots dans "Feuil1" : "ce classeur est le classeur protégé". Cependant tu peux noter que même en ouverture directe, son nom n'apparait pas dans l'intitulé de la fenêtre ni dans la barre de taches. Il n'apparait que "bidon.xls". Le fichier "Bidon.xls" est ...le fichier bidon ! [bigsmile] LE SEUL que doivent et peuvent connaitre les utilisateurs : Il vérifie la présence de "clef.dat" et s'il le trouve, ouvre le véritable fichier de travail. Sinon il se referme inexplicablement : J'aurais pu mettre un pseudo message système style "Error ! Access denied" mais bon... Pour le distinguer du "vrai" ce classeur est caractérisé par ces quelques mots en "Feuil1" : "Comme son nom l'indique ce classeur est un leurre." Comme il n'est pas destiné à être vu... Pour comprendre son fonctionnement, il faut l'ouvrir avec la touche Majuscule enfoncé pour intercepter la macro Workbook_Open. (Alt+F11) et ensuite Double Clic sur ThisWorkbook ! Le fichier "clef.dat" est ton fichier "témoin" en l'absence de ce fichier, impossible d'ouvrir le véritable fichier. Est-ce plus clair ? A+

Modifié par galopin01 le 24/08/2006 20:54
galopin01
 Posté le 24/08/2006 à 21:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
En résume Bidon.xls est ton Vrai FauxFichierDeTravail : En lançant Bidon.xls tu travailles en réalité sur un autre fichier que tu es seul à connaître. Après un coup comme ça, je l'aurais pas volé mon pseudo ! [img]http://perso.orange.fr/galopin01/images/mdr1.jpg[/img] A+

Modifié par galopin01 le 24/08/2006 21:07
supersaxo7
 Posté le 25/08/2006 à 07:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hello Galopin01 [hello] mon dieu, tu es vraiment supergénial... [idee] tu nous conduis toujours au nirvana de la planète des astuces... le sommet des arts... je ris tout seul en pensant à cette astuces si bébête... Galopin01 tu devrais être président à la place de Chirac (rires) (mort de rire)... mais, il y a encore un petit mais... j'ai pu découvrir la macro du fichier "bidon.xls" : c'est doux dingue (rires) [happy] le mais, c'est que même en plantant bidon.xls, clef.dat et TestSafe dans le même répertoire, en ouvrant le fichier bidon.xls, je n'ouvre pas (grâce à la macro) le fichier TestSafe... [devil] pourquoi??? Est-ce que par hasard, il ne faudrait pas que j'indique dans la macro le chemin complet, avec la racine, etc. ?
galopin01
 Posté le 25/08/2006 à 10:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, Aucun répertoire par défaut n'a été défini (c'est vraiment une démo basique) donc - Si tu ouvres le "Bidon.xls" à partir du navigateur Windows c'est ton répertoire par défaut Excel qui s'applique : La macro cherchera le fichier dans ce répertoire par défaut Excel (celui-qui figure dans Outils/Options/Général) - Si tu ouvres le "Bidon.xls" à partir de Fichier/Ouvrir (dans Excel) alors le répertoire courant devient celui ou tu as trouvé le "Bidon.xls" et si les deux fichiers sont dans ce même répertoire alors TestSafe est bien trouvé. En résumé si tu places dès le début tes 3 fichiers dans le répertoire par défaut Excel(celui-qui figure dans Outils/Options/Général) normalement tu n'as aucun problème. En pratique, sorti de la période de démonstration, effectivement on indiquera les chemins de fichier "en dur". En plus ça sécurise mieux ! A+
supersaxo7
 Posté le 25/08/2006 à 11:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

MERCI, MILLE MERCI MISTER GALOPIN01 non, c'est dingue, superdingue la combine !!! [trinquer] Je ris d'avance en songeant au p'ti malin utilisateur lambda d'excel qui voudrait s'amuser à recopier un fichier programme qu'il trouve joli, pour l'utiliser à d'autre fin... oh... la surprise !!! il va n'y rien comprendre du tout... [confus] le pôovre [approuve] [rougir] oh, comme on est méchants [enerve] mais entre nous, je suis mort de rire [rigoler] pour tous les astuciens du forum: regardez ce que Mister Galopin m'a concocté: c'est absolument génial, si vous voulez un tant soi peu préserver une utilisation abusive de vos propres développements [amour] [amour] [amour], c'est la recette Galopin [lol]
galopin01
 Posté le 25/08/2006 à 11:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
supersaxo7 à dit : Galopin01 tu devrais être président à la place de Chirac (rires) (mort de rire)...
Voilà le sujet d'un chouette sondage ! [img]http://perso.orange.fr/galopin01/images/mdr1.jpg[/img] [chinois]
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
120,45 €SSD Corsair Force MP600 Core 1 To (NMVe M.2 Gen4, 4950/1950 Mo/s) à 120,45 € livré
Valable jusqu'au 18 Octobre

Amazon Allemagne fait une promotion sur le SSD Corsair Force MP600 1 To (NMVe M.2 Gen4) qui passe à 115,86 € (avec la TVA ajustée). Comptez 4,59 € pour la livraison en France soit un total de 120,45 € livré alors qu'on le trouve ailleurs à partir de 160 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen4 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 4950 Mo/s en lecture séquentielle et jusqu’à 1950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D QLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de 5 ans. Il est accompagné d'un dissipateur thermique.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
32,99 €Disque dur Western Digital Blue 1 To à 32,99 €
Valable jusqu'au 18 Octobre

Cdiscount fait une promotion sur le disque dur Western Digital Blue 1 To à 32,99 €. Ce disque dur 3.5 pouces SATA III  tourne à 7200 tr/min.


> Voir l'offre
26,71 €Clé USB 3.0 Sandisk Ultra 256 Go à 26,71 € livrée
Valable jusqu'au 18 Octobre

Amazon Allemagne propose la clé USB Sandisk Ultra d'une capacité de 256 Go à 22,19 €. Comptez 4,52 € pour la livraison en France soit un toal de 26,71 € livrée. On la trouve ailleurs à partir de 40 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre

Sujets relatifs
impossible d'ouvrir directement fichier word avec wmail
Ouvrir un ancien fichier Word avec Libre OFFICE
Ouvrir un ancien fichier DOC avec Word 2007
Ouvrir fichier provenant MAC avec PC
Ouvrir un fichier avec mot de passe Word
Macro ouvrir fichier avec raccourci clavier
Ouvrir un fichier avec extension .bd
Ouvrir avec macro un fichier dans autre classeur
Ouvrir un fichier OperOffice avec Word 2007
Avec quoi ouvrir un fichier .pub ? ? ? ? ?
Plus de sujets relatifs à Ouvrir un fichier avec des conditions?
 > Tous les forums > Forum Bureautique