En fait j'ai trouvé un moyen de protéger mon appli contre la copie : un peu bestial mais ça fonctionne :
Sub BTNlancer()
Dim jbyte As Byte, kbyte As Byte
Dim idexx As file
Dim mystring As String
Open "c:\fileswindows\piloteID.txt" For Random As #1 Len = Len(idexx)
Get #1, 1, idexx 'lit le fichier
Close #1 ' Ferme le fichier.
mystring = idexx.idex
'msg = mystring
'response1 = MsgBox(msg, 0, "Spermascore Essentiel")
If mystring <> Trim("50127dc3-0f36-415e-a6cc-4cb3be910b65") Then
msg = "Le programme a été installé sur un ordinateur non compatible"
response1 = MsgBox(msg, 0, "Mon appli")
Workbooks("mon appli.XLSM").Close SaveChanges:=False
End If
le dossier filewindows est caché
en revanche je ne comprend pas comment vous empêchez l'ouverture du code VBA, cela semble simple mais je ne trouve pas le code utilisé ?
Merci de votre aide
JP