XL 2010 Erreurs macro code machine pour PC unique

Orson83 · 6 Février 2021

Bonjour le forum,
J'ai récupéré une macro très intéressante qui permet d'enregistrer le numéro du disque dur dans une cellule et de reconnaître l'ordinateur sur lequel le fichier a été ouvert. Un grand merci à Chris24 pour cette contribution
L'idée c'est que le fichier ne puisse pas fonctionner avec un autre utilisateur (autre ordinateur) car le code machine sera différent.
Cependant, je rencontre quelques petits problèmes que je ne parviens pas à résoudre car je ne maîtrise pas assez bien le codage, pourtant j'ai essayé
- J'ai une erreur d'exécution VBA 1004 > La méthode 'Range' de l'objet'_Global' a échouée (cela se produit à la première ouverture où si le fichier a été dupliqué pour le même PC)
Pour l'adapter à mon utilisation, serait-il possible de ? :
- Supprimer l'enregistrement automatique si pas la bonne machine (dans tous les cas)
- Annuler l'ouverture des Feuilles si ordinateur OK (onglets comme à la fermeture d'Excel)
- Supprimer toutes les msgbox sauf "Ce fichier ne peut pas fonctionner pas sur cet ordinateur"
- Et si ce n'est pas le bon PC, alors juste fermer les onglets et fermer Excel sans détruire les pages de façon que le fichier puisse être réutilisable sur le PC d'origine
Je sais que ça fait beaucoup de demandes et je vous remercie par avance de me donner un coup de pouce
Je joins un fichier exemple dans ce post.
Tchotchodu31

Compte Supprimé 979 · 7 Février 2021

Tchotchodu31 à dit:
Bonjour eriiiic,
Merci pour ta contribution. J'ai inséré la détection du système avec Environ("HOMEDRIVE") et ça a l'air de fonctionner.
Petit problème si je supprime ou modifie la partie du code qui sert à l'encodage XOR, ça plante.
Si tu pouvais me donner un coup de main sur cette partie du code Merci.
Mon fichier modifié attaché.

Bonjour Tchotchodu31

To codage est complètement erroné
Environ() est une fonction VBA intégrée, tu ne dois pas l'utiliser pour en faire une fonction personnalisée

Voici le fichier avec code modifié + un module pour une autre façon de trouver els numéro de série

Compte Supprimé 979 · 6 Février 2021

Bonjour Tchotchodu31

Je pense que vous rêvez de vouloir empêcher l'utilisation d'un classeur Excel partout ou l'on veut

Ceci dit, voici le code modifié, d'après votre demande et vu le code, je pense qu'une bone formation au VBA est nécessaire....

Orson83 · 6 Février 2021

BrunoM45 à dit:
Bonjour Tchotchodu31

Je pense que vous rêvez de vouloir empêcher l'utilisation d'un classeur Excel partout ou l'on veut

Ceci dit, voici le code modifié, d'après votre demande et vu le code, je pense qu'une bone formation au VBA est nécessaire....

Bonjour BrunoM45, le forum,
Merci pour ces modifications. Je reconnais que mon niveau en VBA n'est pas Top, mais j'en apprends tous les jours.
Effectivement, je ne pense pas que ce fichier soit inviolable mais j'espère juste limiter la duplication car j'ai passé presque 2 ans à le réaliser.
Je vois juste un petit soucis à l'ouverture. Si il est vierge de code machine, à la première ouverture, le fichier s'ouvre et se referme immédiatement. Après, il fonctionne correctement à la deuxième ouverture.
Je me posais aussi la question de savoir si un utilisateur légitime avait son Windows sur le lecteur "D" par exemple, que se passerai t-il ? Peut-être que si le code désignait les lecteurs "C" ou "D" ou "E" ou "F" cela éviterait un plantage ?
Tchotchodu31

eriiic · 6 Février 2021

Bonjour,

tu peux connaitre le disque système avec

VB:

Environ("HOMEDRIVE")

Bruno, j'ai utilisé cette méthode récemment (avec XOR) et je me suis aperçu d'un soucis.
Il ne faut pas crypter les caractères donnant 0 en résultat. Ca raccourci la chaine résultat.
J'ai dû aussi strapper ceux donnant 4, 10, 13, 34 pour difficulté à copier-coller la chaine cryptée pour initialiser une variable. A titre info, je n'ai pas l'impression pas que ça joue ici.
eric

Orson83 · 7 Février 2021

eriiiic à dit:
Bonjour,

tu peux connaitre le disque système avec

VB:

Environ("HOMEDRIVE")

Bruno, j'ai utilisé cette méthode récemment (avec XOR) et je me suis aperçu d'un soucis.
Il ne faut pas crypter les caractères donnant 0 en résultat. Ca raccourci la chaine résultat.
J'ai dû aussi strapper ceux donnant 4, 10, 13, 34 pour difficulté à copier-coller la chaine cryptée pour initialiser une variable. A titre info, je n'ai pas l'impression pas que ça joue ici.
eric

Bonjour eriiiic,
Merci pour ta contribution. J'ai inséré la détection du système avec Environ("HOMEDRIVE") et ça a l'air de fonctionner.
Petit problème si je supprime ou modifie la partie du code qui sert à l'encodage XOR, ça plante.
Si tu pouvais me donner un coup de main sur cette partie du code Merci.
Mon fichier modifié attaché.

eriiic · 7 Février 2021

Bonjour,

je vais laisser bruno continuer ce qu'il a fait.
Je viens de voir qu'il utilisait déjà Environ() dans la V1a dans test2()...
C'est plutôt au niveau de sDrive qu'il faut jouer. Il utilise GetVolumeInformation à la place et je pense que ta question n'avait pas lieu d'être.

Et il faut laisser CalculPW = Res que la fonction personnalisée retourne sa valeur.

Il ne reste qu'à voir s'il juge utile d'éliminer le 0 qui peut apparaître dans la chaine cryptée
eric

Compte Supprimé 979 · 7 Février 2021

Tchotchodu31 à dit:
Bonjour eriiiic,
Merci pour ta contribution. J'ai inséré la détection du système avec Environ("HOMEDRIVE") et ça a l'air de fonctionner.
Petit problème si je supprime ou modifie la partie du code qui sert à l'encodage XOR, ça plante.
Si tu pouvais me donner un coup de main sur cette partie du code Merci.
Mon fichier modifié attaché.

Bonjour Tchotchodu31

To codage est complètement erroné
Environ() est une fonction VBA intégrée, tu ne dois pas l'utiliser pour en faire une fonction personnalisée

Voici le fichier avec code modifié + un module pour une autre façon de trouver els numéro de série

soan · 7 Février 2021

Bonjour @BrunoM45, le fil

apparemment, le demandeur @Tchotchodu31 a utilisé la fonction Environ() pour faire un code VBA qui donne approximativement dans l'à-peu-près ! ➯ résultat approchant non garanti !

soan

Orson83 · 7 Février 2021

BrunoM45 à dit:
Bonjour Tchotchodu31

To codage est complètement erroné
Environ() est une fonction VBA intégrée, tu ne dois pas l'utiliser pour en faire une fonction personnalisée

Voici le fichier avec code modifié + un module pour une autre façon de trouver els numéro de série

Bonjour BrunoM45, eriiiic, le forum,
Cette version qui détecte le disque me semble très bien, merci pour ce travail.
Mais il y a plantage dans le ThisWorkBook sur le Stop. Une fois débogué, Excel se ferme.
Il semblerait que la macro ne gère que Windows 32 bits ?
François

Orson83 · 7 Février 2021

soan à dit:
Bonjour @BrunoM45, le fil

apparemment, le demandeur @Tchotchodu31 a utilisé la fonction Environ() pour faire un code VBA qui donne approximativement dans l'à-peu-près ! ➯ résultat approchant non garanti !

soan

Bonjour Soan,
On a tous nos limites mais on apprend de nos erreurs.
Une participation à la résolution de ce problème peut-être ?

soan · 7 Février 2021

@Tchotchodu31

Bonjour François,

excuse-moi ; c'que j'ai écrit dans mon post #8 est juste pour le jeu de mots entre la fonction Environ() et un code VBA approximatif ; je n'ai pas cherché à me moquer de toi, et on a tous été débutant au départ, moi y compris ; et moi aussi, j'ai mes limites et j'apprends de mes erreurs ; c'est comme ça qu'on progresse.

je plussoie Bruno quand il dit qu'il ne faut pas nommer une fonction personnalisée avec un nom de fonction de VBA qui existe déjà ; j'ajoute : ni avec un mot clé (keyword) de VBA (je veux dire : même si ce keyword n'est pas un nom de fonction).

pour ce qui est de participer à la résolution de cet exo, je préfère laisser les autres intervenants de cette conversation poursuivre, car ils sont bien plus calés que moi là-dessus ; bonne chance !

soan

Orson83 · 7 Février 2021

soan à dit:
@Tchotchodu31

Bonjour François,

excuse-moi ; c'que j'ai écrit dans mon post #8 est juste pour le jeu de mots entre la fonction Environ() et un code VBA approximatif ; je n'ai pas cherché à me moquer de toi, et on a tous été débutant au départ, moi y compris ; et moi aussi, j'ai mes limites et j'apprends de mes erreurs ; c'est comme ça qu'on progresse.

je plussoie Bruno quand il dit qu'il ne faut pas nommer une fonction personnalisée avec un nom de fonction de VBA qui existe déjà ; j'ajoute : ni avec un mot clé (keyword) de VBA (je veux dire : même si ce keyword n'est pas un nom de fonction).

pour ce qui est de participer à la résolution de cet exo, je préfère laisser les autres intervenants de cette conversation poursuivre, car ils sont bien plus calés que moi là-dessus ; bonne chance !

soan

Merci soan
Très bon dimanche

XL 2010 Erreurs macro code machine pour PC unique

Orson83

XLDnaute Impliqué

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

Pièces jointes

Orson83

XLDnaute Impliqué

eriiic

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Pièces jointes

eriiic

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Pièces jointes

soan

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Orson83

XLDnaute Impliqué

soan

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Discussions similaires