Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Protection contre copie

Protection contre copie

4 réponses
Avatar
Pierre
Bonjour,

Bon voilà j'ai réalisé une application pour un usage professionnel. Je
souhaite installer cette appli sur quelques postes de collaborateurs.
Cependant je ne souhaite pas que ceux-ci diffusent cette application à
d'autres collaborateurs non autorisés.

Ma question : comment faire ?
Je pensais à un fichier quelconque installé lui aussi sur le micro du
destinataire autorisé (caché à un endroit précis)ainsi qu'une macro dans mon
applic pour vérifier la présence de ce fichier caché sur le disque dur pour
démarrer l'applic.

Le problème est que mes connaissances en Macro sont encore trop justes...
Merci de votre aide.

Neriman
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir,
Tu pourrais effectivement créer un simple fichier texte, nommé ici "test_valid.txt" dont tu vérifies la
présence dans le répertoire de ton choix, en cas d'absence, une erreur est générée, sur laquelle on
provoque la fermeture du classeur ; ce qui donnerait une macro (à placer dans un module ordinaire) du
style :

Sub autorise()
' MPFE le 04/02/2004 par Philippe Raulet
'desactivation du raffraichissement d'ecran
Application.ScreenUpdating = False
On Error GoTo Err
'ouverture du fichier texte
Workbooks.OpenText Filename:= _
"C:Documents and SettingsSuite_du_cheminEssaistest_valid.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
'fermeture du fichier texte
Workbooks("test_valid.txt").Close
'réactivation du raffraichissement
Application.ScreenUpdating = True
'sortie
Exit Sub
'gestion d'erreur
Err
MsgBox "Vous n'êtes pas autorisé à utiliser ce fichier !", vbCritical, "Violation de droits !"
ThisWorkbook.Close
Application.ScreenUpdating = True
End Sub

et dans la procédure open du module thisworkbook :

Private Sub Workbook_Open()
autorise
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Pierre" a écrit dans le message de news:bvrqm4$1bf2$
Bonjour,

Bon voilà j'ai réalisé une application pour un usage professionnel. Je
souhaite installer cette appli sur quelques postes de collaborateurs.
Cependant je ne souhaite pas que ceux-ci diffusent cette application à
d'autres collaborateurs non autorisés.

Ma question : comment faire ?
Je pensais à un fichier quelconque installé lui aussi sur le micro du
destinataire autorisé (caché à un endroit précis)ainsi qu'une macro dans mon
applic pour vérifier la présence de ce fichier caché sur le disque dur pour
démarrer l'applic.

Le problème est que mes connaissances en Macro sont encore trop justes...
Merci de votre aide.

Neriman




Avatar
Jacky
Bonjour,ou plutôt bonne nuit
Pas mal comme truc, à condition que les collaborateurs de Pierre ne lisent
pas le forum.
;o))
JJ


"Philippe.R" a écrit dans le message de
news:%
Bonsoir,
Tu pourrais effectivement créer un simple fichier texte, nommé ici
"test_valid.txt" dont tu vérifies la

présence dans le répertoire de ton choix, en cas d'absence, une erreur est
générée, sur laquelle on

provoque la fermeture du classeur ; ce qui donnerait une macro (à placer
dans un module ordinaire) du

style :

Sub autorise()
' MPFE le 04/02/2004 par Philippe Raulet
'desactivation du raffraichissement d'ecran
Application.ScreenUpdating = False
On Error GoTo Err
'ouverture du fichier texte
Workbooks.OpenText Filename:= _
"C:Documents and SettingsSuite_du_cheminEssaistest_valid.txt"
_

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _

Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1, 1),
_

TrailingMinusNumbers:=True
'fermeture du fichier texte
Workbooks("test_valid.txt").Close
'réactivation du raffraichissement
Application.ScreenUpdating = True
'sortie
Exit Sub
'gestion d'erreur
Err
MsgBox "Vous n'êtes pas autorisé à utiliser ce fichier !", vbCritical,
"Violation de droits !"

ThisWorkbook.Close
Application.ScreenUpdating = True
End Sub

et dans la procédure open du module thisworkbook :

Private Sub Workbook_Open()
autorise
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Pierre" a écrit dans le message de
news:bvrqm4$1bf2$

Bonjour,

Bon voilà j'ai réalisé une application pour un usage professionnel. Je
souhaite installer cette appli sur quelques postes de collaborateurs.
Cependant je ne souhaite pas que ceux-ci diffusent cette application à
d'autres collaborateurs non autorisés.

Ma question : comment faire ?
Je pensais à un fichier quelconque installé lui aussi sur le micro du
destinataire autorisé (caché à un endroit précis)ainsi qu'une macro dans
mon


applic pour vérifier la présence de ce fichier caché sur le disque dur
pour


démarrer l'applic.

Le problème est que mes connaissances en Macro sont encore trop
justes...


Merci de votre aide.

Neriman








Avatar
Philippe.R
Bonjour Jacky,
Oh, tu sais, il es est de cette tentative de protection comme de toutes les autres, elles ne résistent
guère qu'à ceux qui ne sont pas vraiment décidés à les franchir.
;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacky" a écrit dans le message de
news:
Bonjour,ou plutôt bonne nuit
Pas mal comme truc, à condition que les collaborateurs de Pierre ne lisent
pas le forum.
;o))
JJ


"Philippe.R" a écrit dans le message de
news:%
Bonsoir,
Tu pourrais effectivement créer un simple fichier texte, nommé ici
"test_valid.txt" dont tu vérifies la

présence dans le répertoire de ton choix, en cas d'absence, une erreur est
générée, sur laquelle on

provoque la fermeture du classeur ; ce qui donnerait une macro (à placer
dans un module ordinaire) du

style :

Sub autorise()
' MPFE le 04/02/2004 par Philippe Raulet
'desactivation du raffraichissement d'ecran
Application.ScreenUpdating = False
On Error GoTo Err
'ouverture du fichier texte
Workbooks.OpenText Filename:= _
"C:Documents and SettingsSuite_du_cheminEssaistest_valid.txt"
_

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _

Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1, 1),
_

TrailingMinusNumbers:=True
'fermeture du fichier texte
Workbooks("test_valid.txt").Close
'réactivation du raffraichissement
Application.ScreenUpdating = True
'sortie
Exit Sub
'gestion d'erreur
Err
MsgBox "Vous n'êtes pas autorisé à utiliser ce fichier !", vbCritical,
"Violation de droits !"

ThisWorkbook.Close
Application.ScreenUpdating = True
End Sub

et dans la procédure open du module thisworkbook :

Private Sub Workbook_Open()
autorise
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Pierre" a écrit dans le message de
news:bvrqm4$1bf2$

Bonjour,

Bon voilà j'ai réalisé une application pour un usage professionnel. Je
souhaite installer cette appli sur quelques postes de collaborateurs.
Cependant je ne souhaite pas que ceux-ci diffusent cette application à
d'autres collaborateurs non autorisés.

Ma question : comment faire ?
Je pensais à un fichier quelconque installé lui aussi sur le micro du
destinataire autorisé (caché à un endroit précis)ainsi qu'une macro dans
mon


applic pour vérifier la présence de ce fichier caché sur le disque dur
pour


démarrer l'applic.

Le problème est que mes connaissances en Macro sont encore trop
justes...


Merci de votre aide.

Neriman












Avatar
Pierre
Je vous remercie de votre contribution, je vais tester ça.
Pour ce qui est des autres collaborateurs qui pourraient lire ce forum (fort
intéressant du reste) y a pas de danger...
Merci encore !


"Philippe.R" a écrit dans le message de
news:
Bonjour Jacky,
Oh, tu sais, il es est de cette tentative de protection comme de toutes
les autres, elles ne résistent

guère qu'à ceux qui ne sont pas vraiment décidés à les franchir.
;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacky" a écrit dans le message de
news:
Bonjour,ou plutôt bonne nuit
Pas mal comme truc, à condition que les collaborateurs de Pierre ne
lisent


pas le forum.
;o))
JJ


"Philippe.R" a écrit dans le message de
news:%
Bonsoir,
Tu pourrais effectivement créer un simple fichier texte, nommé ici
"test_valid.txt" dont tu vérifies la

présence dans le répertoire de ton choix, en cas d'absence, une erreur
est



générée, sur laquelle on
provoque la fermeture du classeur ; ce qui donnerait une macro (à
placer



dans un module ordinaire) du
style :

Sub autorise()
' MPFE le 04/02/2004 par Philippe Raulet
'desactivation du raffraichissement d'ecran
Application.ScreenUpdating = False
On Error GoTo Err
'ouverture du fichier texte
Workbooks.OpenText Filename:= _
"C:Documents and
SettingsSuite_du_cheminEssaistest_valid.txt"



_
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _

Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(1,
1),



_
TrailingMinusNumbers:=True
'fermeture du fichier texte
Workbooks("test_valid.txt").Close
'réactivation du raffraichissement
Application.ScreenUpdating = True
'sortie
Exit Sub
'gestion d'erreur
Err
MsgBox "Vous n'êtes pas autorisé à utiliser ce fichier !", vbCritical,
"Violation de droits !"

ThisWorkbook.Close
Application.ScreenUpdating = True
End Sub

et dans la procédure open du module thisworkbook :

Private Sub Workbook_Open()
autorise
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Pierre" a écrit dans le message de
news:bvrqm4$1bf2$

Bonjour,

Bon voilà j'ai réalisé une application pour un usage professionnel.
Je




souhaite installer cette appli sur quelques postes de
collaborateurs.




Cependant je ne souhaite pas que ceux-ci diffusent cette application
à




d'autres collaborateurs non autorisés.

Ma question : comment faire ?
Je pensais à un fichier quelconque installé lui aussi sur le micro
du




destinataire autorisé (caché à un endroit précis)ainsi qu'une macro
dans




mon
applic pour vérifier la présence de ce fichier caché sur le disque
dur




pour
démarrer l'applic.

Le problème est que mes connaissances en Macro sont encore trop
justes...


Merci de votre aide.

Neriman