Protection application

[barbin]

Bonjour à tous,
Je souhaiterai savoir s'il existe une possibilité de protéger une application réaliser sous Excel en le limitant à un poste. C'est à dire un mot de passe pour chaque installation de l'application.

Cordialement
Blacksoul

 

[phlaurent55]

Bonjour Blacksoul,

Protéger efficacement un fichier Excel n'est pas une chose facile

Pour limiter l'utilisation à un seul PC, il faut qu'à l'ouverture du fichier, une procédure évènementielle puisse comparer quelque-chose qui soit unique et propre à chaque machine utilisée.

Ce quelque-chose unique me semble être le numéro de série du disque dur
Pour trouver ce numéro voici les codes: (testés avec ma version Excel 2007)

Private Declare Function GetVolumeInformation Lib _
"Kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Function NumSerieDD(LettreDD As String) As Long
Dim SerialNum As Long
Dim R As Long
Dim Temp1 As String
Dim Temp2 As String
LettreDD = LettreDD & ":\"
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
R = GetVolumeInformation(LettreDD, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
NumSerieDD = SerialNum
End Function

à+
Philippe

 

[phlaurent55]

Re,

voir fichier joint

à+
Philippe