Je voudrais savoir si il éxiste un code VB qui puisse me permettre de
bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas
pareil à celui introduit dans le code VB...
C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis
nouveau dans le code VB):
Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965
Then
ThisWorkbook.Close (automatiquement)
End If
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
Sitting Hoax
Bonjour, tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs qui permettent de dévérouiller les codes, je n'ai pas su récupérer l'ID du produit. Par contre, supposant que tu veux interdire tout simplement l'accès à ton programme, je te propose autre chose, un peu similaire: tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site de Frédéric Sigonneau http://frederic.sigonneau.free.fr/ http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt afin de trouver l'environnement qui te convient, puis d'attribuer un des codes à ton ThisWorkbook.Open Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi. Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui qui est inscrit ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER Private Sub Workbook_Open() If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then 'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical Application.DisplayAlerts = False ThisWorkbook.Close False End If End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info. USERNAME environ(26) etc... PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel (environ(16) me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement Sitting Hoax
"José Carapito" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas pareil à celui introduit dans le code VB... C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis nouveau dans le code VB): Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965 Then ThisWorkbook.Close (automatiquement) End If
End Sub
Merci vien... A+
Bonjour,
tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs
qui permettent de dévérouiller les codes,
je n'ai pas su récupérer l'ID du produit.
Par contre, supposant que tu veux interdire tout simplement l'accès à ton
programme,
je te propose autre chose, un peu similaire:
tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site
de Frédéric Sigonneau
http://frederic.sigonneau.free.fr/
http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt
afin de trouver l'environnement qui te convient, puis d'attribuer un des
codes à ton ThisWorkbook.Open
Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi.
Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui
qui est inscrit
ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER
Private Sub Workbook_Open()
If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then
'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info.
USERNAME environ(26)
etc...
PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel
(environ(16)
me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement
Sitting Hoax
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: BFF1A36D-986B-4BFD-8153-DBCC1E631BCB@microsoft.com...
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de
bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas
pareil à celui introduit dans le code VB...
C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis
nouveau dans le code VB):
Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965
Then
ThisWorkbook.Close (automatiquement)
End If
Bonjour, tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs qui permettent de dévérouiller les codes, je n'ai pas su récupérer l'ID du produit. Par contre, supposant que tu veux interdire tout simplement l'accès à ton programme, je te propose autre chose, un peu similaire: tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site de Frédéric Sigonneau http://frederic.sigonneau.free.fr/ http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt afin de trouver l'environnement qui te convient, puis d'attribuer un des codes à ton ThisWorkbook.Open Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi. Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui qui est inscrit ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER Private Sub Workbook_Open() If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then 'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical Application.DisplayAlerts = False ThisWorkbook.Close False End If End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info. USERNAME environ(26) etc... PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel (environ(16) me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement Sitting Hoax
"José Carapito" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas pareil à celui introduit dans le code VB... C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis nouveau dans le code VB): Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965 Then ThisWorkbook.Close (automatiquement) End If
End Sub
Merci vien... A+
José Carapito
Trop bien.... Je te remercie...ça fonctionne super...;) A +
"Sitting Hoax" wrote:
Bonjour, tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs qui permettent de dévérouiller les codes, je n'ai pas su récupérer l'ID du produit. Par contre, supposant que tu veux interdire tout simplement l'accès à ton programme, je te propose autre chose, un peu similaire: tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site de Frédéric Sigonneau http://frederic.sigonneau.free.fr/ http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt afin de trouver l'environnement qui te convient, puis d'attribuer un des codes à ton ThisWorkbook.Open Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi. Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui qui est inscrit ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER > Private Sub Workbook_Open() If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then 'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical Application.DisplayAlerts = False ThisWorkbook.Close False End If End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info. USERNAME environ(26) etc... PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel (environ(16) me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement Sitting Hoax
"José Carapito" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas pareil à celui introduit dans le code VB... C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis nouveau dans le code VB): Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965 Then ThisWorkbook.Close (automatiquement) End If
End Sub
Merci vien... A+
Trop bien....
Je te remercie...ça fonctionne super...;)
A +
"Sitting Hoax" wrote:
Bonjour,
tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs
qui permettent de dévérouiller les codes,
je n'ai pas su récupérer l'ID du produit.
Par contre, supposant que tu veux interdire tout simplement l'accès à ton
programme,
je te propose autre chose, un peu similaire:
tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site
de Frédéric Sigonneau
http://frederic.sigonneau.free.fr/
http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt
afin de trouver l'environnement qui te convient, puis d'attribuer un des
codes à ton ThisWorkbook.Open
Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi.
Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui
qui est inscrit
ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER >
Private Sub Workbook_Open()
If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then
'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info.
USERNAME environ(26)
etc...
PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel
(environ(16)
me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement
Sitting Hoax
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: BFF1A36D-986B-4BFD-8153-DBCC1E631BCB@microsoft.com...
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de
bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas
pareil à celui introduit dans le code VB...
C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis
nouveau dans le code VB):
Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965
Then
ThisWorkbook.Close (automatiquement)
End If
Trop bien.... Je te remercie...ça fonctionne super...;) A +
"Sitting Hoax" wrote:
Bonjour, tout en pensant que vérouiller Excel semble illusoire vu le nombre de patchs qui permettent de dévérouiller les codes, je n'ai pas su récupérer l'ID du produit. Par contre, supposant que tu veux interdire tout simplement l'accès à ton programme, je te propose autre chose, un peu similaire: tu peux utiliser cette macro de Benjamin Larue, (marseillais) tirée du site de Frédéric Sigonneau http://frederic.sigonneau.free.fr/ http://frederic.sigonneau.free.fr/code/Systeme/VariablesEnvironnement.txt afin de trouver l'environnement qui te convient, puis d'attribuer un des codes à ton ThisWorkbook.Open Ici j'ai utilisé Environ(5) qui donne le nom de l'ordi. Il suffit donc de demander si le nom de l'ordi (environ(5)correspond à celui qui est inscrit ici ("COMPUTER=SY5PPNP83P98") pense à bien inscrire COMPUTER > Private Sub Workbook_Open() If LCase(Environ(5)) = LCase("COMPUTER=SY5PPNP83P98") Then 'MsgBox "vous n'avez pas le droit d'utiliser ce programme !", vbCritical Application.DisplayAlerts = False ThisWorkbook.Close False End If End Sub
Tu aurais pu utiliser USERDOMAIN (environ(25)) qui donne la même info. USERNAME environ(26) etc... PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel (environ(16) me semble assez compliqué pour se prêter à ce que tu veux faire.
Amicalement Sitting Hoax
"José Carapito" a écrit dans le message de news:
Bonjour,
Je voudrais savoir si il éxiste un code VB qui puisse me permettre de bloquer l´ouverture d´un fichier Excel si l´ID du produit Excel n´ai pas pareil à celui introduit dans le code VB... C´est à dire, mon idée est à peu prêt comme ça (pas correcte car je suis nouveau dans le code VB): Private Sub Workbook_Open
If ThisWorkbook.Open <> " Id du produit= 89456-489-7894561-15965 Then ThisWorkbook.Close (automatiquement) End If
