repertoire

[justine]

bonjour a tous,
j'ai passé du temps a faire une application pour mon travail. beaucoup le voudrait.
malheureusement par peur de personnes peu honnetes, je dois proteger mon travail en le "piègeant".
je pensais donc à une petite verification de repertoire.
je m'explique:
une personne me le "dérobant" va la mettre sur une clé USB donc le répertoire va changer.
serait'il possible à l'application, a l'ouverture, de verifier si elle est installée a telle adresse "C:/dossiers avions/centrage" (si non, fermer l'application, le rendre inutilisable)
merci et bonne fin de week-end

 

[Staple1600]

Re : repertoire

Bonjour


Tu peux procéder de la sorte (bien que pas 100% fiable)

A 1ère l'ouverture du classeur , se crée un fichier texte avec un nom
ressemblant à un fichier système par exemple dans un sous-répertoire de Windows, ensuite à chaque ouverture le classeur vérifie sa présence sur le disque dur.

EDITION: je viens de me rappeler de ce post
Tu trouveras de quoi t'aider ici:
Lien supprimé

 

[justine]

Re : repertoire

bonjour staple1600,
je ne sais pas proceder a cette verification, peux tu m'expliquer?
merci

 

[phlaurent55]

Re : repertoire

Salut Justine,Stapple , le forum

mets ce code

Private Sub Workbook_Open()

GoTo debut

fin:
' si fichier non trouvé à l'emplacement habituel, tout se referme
ActiveWindow.Close



debut:
On Error GoTo fin
' ci-dessous, adapte en fonction de l'endroit où est sauvegardé ton fichier

    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Mes documents\nom du fichier.xls"


End Sub

dis nous si ça va
à+


Edit : je rajoute un fichhier très confidentiel qu'ii te sera impossible d'ouvrir

 

[Spitnolan08]

Re : repertoire

Bonjour à tous,

N'ayant pas tous les détails de ton fichier je te propose une autre méthode simple à tester :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If CurDir <> "C:/dossiers avions/centrage" Then
    For i = 1 To Sheets.Count - 1
        Sheets(i).Delete
    Next
End If
End Sub

Si tu veux détruire toutes les feuilles, tu ajoutes une feuille vierge à la fin avant de détruire les autres...

Tu peux aussi mettre cette macro à l'ouverture du fichier dans Private Sub Workbook_Open() dans Thisworkbook (D'ailleurs, c'est mieux...)

Mais dans tous les cas, il faut que les macros soient activées...


Cordialement

 

[justine]

Re : repertoire

bonjour a vous tous
tout d'abord je tiens a vous remercier pour vos solutions
je vais travailler dessus pour l'implanter dans mon application. je vous tiens au courant si j'ai un pb.
encore merci

 

[phlaurent55]

Re : repertoire

Re à tous,


justine, j'ai oublié, tu rajoutes

ApplicationScreenUpdatig = False

au début du code que j'ai envoyé à 16h35

je m'absente ............ je repasse ce soir pour lire le commentaires

 

[justine]

Re : repertoire

re
et si, pour etre plus pointilleuse, la macro devait reconnaitre un "clé", ma clé USB doit etre branchée pour que l'application marche.
chaque clé peut avoir un nom, non?
je demande peut etre l'impossible

 

[justine]

Re : repertoire

merci phlaurent55

 

[Spitnolan08]

Re : repertoire

Re,

Pour ta dernière question : autant mettre un mot de passe à l'ouverture de ton classeur. Sans celui ci pas d'accès...

Cordialement

 

[Staple1600]

Re : repertoire

Re

malheureusement par peur de personnes peu honnetes, je dois proteger mon travail en le "piègeant".

Malheureusement, si ton classeur passe entre les mains de ce genre de personnes, ils sauront déjouer ta protection

(Il suffit d'aller sur g..gle ou autre)

Je te souhaite que tes collègues soient respectueux de ton travail, mais sache comme le précise Spitnolan08 qu'il faut que les macros soient activées (hors sur un poste standard, l'utilisateur peut les désactiver)

La seule protection ( à mon avis) : ce sont tes propres compétences et que ta direction sache qu'elles ont permis de produire un travail de qualité.

 

[justine]

Re : repertoire

re
oui il est vrai que si la protection pour activer les macro est en place, il peut dejouer la protection,mais sans les macros, l'application est inutilisable car tout est par macro. de plus il y a un mot de passe pour acceder au visual.
quant à mettre un mot de passe pour acceder a l'application, il y en a deja un pour eviter que des personnes "etrangeres" au service n'y aient acces. malheureusement le mot de passe d'entree n'interdit pas de "voler" l'appli. c'est pour cela que j'ai voulu etudier cette fameuse protection du repertoire.
merci a tous pour vos solutions

 

[Spitnolan08]

Re : repertoire

Re,

malheureusement le mot de passe d'entree n'interdit pas de "voler" l'appli

Non effectivement, mais :
1/ Si ton appli est volée mais qu'elle ne peut pas fonctionner, elle ne sert pas à grand chose...
2/ comme le dit Stapple si quelqu'un est vraiment mal intentionné il saura déjouer tes "pièges".

Tu ne peux donc tabler que sur la dissuasion...

Cordialement

 

[Sylvain59]

Re : repertoire

En passant par la signature des macros on monte d'un cran dans le sécurité mais Excel est tres facile à "craquer" par des personnes le désirant vraiment

 

[justine]

Re : repertoire

re
il est vrai mais c'est pour ca que je veux mettre un max de protection.
et puis tout le monde n'est pas un as de la deplomb.
que me conseillez vous en protection?