Discussion :

[ben5622]

Bonjour,

Je souhaiterais réaliser un programme en VBA sur Excel, puis le commercialiser.

Savez-vous s'il existe une solution pour limiter l'utilisation de l'application à un seul poste dans une entreprise.
Par exemple, je ne voudrais pas que le fichier que je vends à une entreprise de 10 salariés soit utilisé pour les 10 salariés alors que la société m'a acquis les droits pour un seul poste.

Merci d'avance.

[EngueEngue]

Un utilisateur chevronné rentrera dans ton code et virera les sécurités. Si c'est des handicapés regarde du coté du HD number ou du nom d'environnement.

[ben5622]

Même si ce n'est pas fiable à 100 %, cela limitera grandement les copies illicites. Mais qu'es ce que l'HD number ? Je n'ai rien trouvé sur google.
Merci d'avance

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Declare PtrSafe Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
 
Sub Serial()
Dim Serial As Long, VName As String, FSName As String
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    seriall = Str$(Serial)
End Sub

Numéro de série du disque dur

Vire le Ptrsafe sur du 32 bits

[Invité]

Bonjour,
Je t’ai créé un petit algorithme qui gère les licences.
Par contre elle est liée à la machine et pas l’utilisateur car elle utilise la base de registres.
Je t’invite à faire la partie génération de licence dans un fichier séparé.

Je récupère les informations de la machine conjoint avec la date, je le hache en MD5 pour obtenir un N° à 13 chiffres que le client te transmet pour que tu lui fournisses ça licence.

[EngueEngue]

Sympa, mais si c'est du 64bits il faudra mettre des PTRSAFE dans tous tes sub et fonctions déclarées!

[Rémy.A]

Bonjour,
Je t’ai créé un petit algorithme qui gère les licences.
Par contre elle est liée à la machine et pas l’utilisateur car elle utilise la base de registres.
Je t’invite à faire la partie génération de licence dans un fichier séparé.

Je récupère les informations de la machine conjoint avec la date, je le hache en MD5 pour obtenir un N° à 13 chiffres que le client te transmet pour que tu lui fournisses ça licence.

Bonjour dysorthographie,

Je suis aussi intéressé par le système de licence, merci pour cette solution!!
J'ai lu toute la discussion, mais je comprend pas comment il faut intégrer les modules dans le fichier Excel (client) .

Merci par avance pour l'aide apportée.