Discussion :

[saber 3615]

Bonjour

Je viens de terminer un travail qui m a pris des jours, des feuilles excel, des userform, et des codes vb.

Maintenant je souhaite protéger le tout, en fait je souhaite que ce fichier ne fonctionne que sur un seul ordinateur, je veux surtout éviter que ça soit copié ailleurs.

Je sais qu' aucune méthode de protection n'est fiable à 100 % mais je veux que vous me suggérez la méthode la moins facile à contourner et qui permet de restriendre l'utilisation à un ou des ordinateurs bien définis.

Merci

[MarcelG]

Salut,

Afin de limiter l'utilisation à quelques utilisateurs prédéfinis, tu peux gérer la propriété

Code :

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

Application.Username

D'autre part, afin de rendre obligatoire l'utilisation d'un fichier "officiel" déposé sur une ressource elle aussi obligatoire,
Tu peux gérer le nom complet (répertoire compris) du fichier. Et ce même si l'utilisateur utilise un serveur connecté par une lettre (Z
Peut-être date-t-il quelque peu.
Au demeurant, l'ami Gayot m'avait adressé un code qui shunte cette connexion et que tu peux comparer avec un nom complet.
J'utilise cette protection pour la plupart des applicatifs que je développe pour mon entité.
Si cela t'intéresse, je te le reporterai avec plaisir.

Ces 2 types de protection seront gérés à l'ouverture du classeur, soit par l'évènement Open.

A plus tard.

J'oubliais. Bienvenue sur le Forum.

[saber 3615]

Bonjour MarcelG

Merci pour votre réponse rapide et précisie;
Oui je suis intéréssé par le code dont vous parlez, je souhaite le tester si vous permettez

[MarcelG]

Salut,

Dans un module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
 (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
 
Public Function fnctGetUNCPath(ByVal PathName As String) As String
 
'fonction donnée par GAYOT sur forum, discussion ouverte par MG
'http://www.developpez.net/forums/d1025923/logiciels/microsoft-office/excel/macros-vba-excel/recherche-repertoire-libelle-integral/
 
'comment récupérer le chemin intégral du fichier si connection lecteur réseau
'tuto :
'http://access.developpez.com/sources/?page=reseau#GetUNC
 
Const MAX_UNC_LENGTH  As Integer = 512
Dim strUNCPath As String
Dim strTempUNCName As String
Dim lngReturnErrorCode  As Long
 
  strTempUNCName = String(MAX_UNC_LENGTH, 0)
  lngReturnErrorCode = WNetGetConnection(Left(PathName, 2), strTempUNCName, _
    MAX_UNC_LENGTH)
 
  If lngReturnErrorCode = 0 Then
     strTempUNCName = Trim(Left(strTempUNCName, InStr(strTempUNCName, vbNullChar) - 1))
     strUNCPath = strTempUNCName & Mid(PathName, 3)
  End If
 
fnctGetUNCPath = strUNCPath
End Function

Cette fonction retourne le chemin complet (hors raccourci serveur Z:....)

Dans le même module (de préférence)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function fichier_valide() As Boolean
 
Dim maréf_true As String
Dim maréf_théo As String
 
'Chemin complet de l'applicatif utilisé
maréf_true = IIf(Len(fnctGetUNCPath(ThisWorkbook.Fullname)) = 0, ThisWorkbook.Fullname, fnctGetUNCPath(ThisWorkbook.Fullname))
Debug.Print maréf_true
 
'Chemin "Officiel" tel que souhaité par le développeur
maréf_théo = "lechemincomplet" & Application.PathSeparator& & ThisWorkbook.Name
 
fichier_valide = (UCase(maréf_true) = UCase(maréf_théo))
 
End Function

A toute fin utile, voici la fonction qui retourne l'autorisation par un ou plusieurs collaborateur précis.

Code :

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

1
2
3
4
5
6
7
8
Public Function Is_Autorisé() As Boolean
 
Dim s As String
s = "la propriété Application Username de tous les collaborateurs séparés par un blanc"
 
Is_Autorisé = (InStr(s, Application.UserName) > 0)
 
End Function

Et dans le code affecté au classeur
(à adapter selon les contraintes que tu veux voir exercées)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Workbook_Open()
 
If fichier_valide = False Or Is_Autorisé = False Then
        MsgBox _
                Prompt:="Ouverture de l'applicatif défectueuse", _
                Buttons:=vbCritical, _
                title:="Usage non valide"
        ThisWorkbook.Close Savechanges:=False
End If
 
End Sub

[saber 3615]

merci beaucoup

je vais tester

[MarcelG]

Dans la fonction Is_Autorisé, la séparation entre les différents UserName reste à gérer (espace, titet du 6, tiret du 8...)
Ceci afin de ne pas risquer de concaténer le nom du précédent collaborateur avec le prénom du suivant.

Je m'explique.

Si les UserName de ton entité sont sous format Nom [espace] Prénom (exemple Marcel Pierre et Jacques Legendre)
Si Marcel Pierre et Jacques Legendre sont les collaborateurs autorisés, mieux vaut écrire
s = "Marcel Pierre / Jacques Legendre"
Ceci afin d'éviter que le collaborateur Pierre Jacques ait accès à l'applicatif.

Je le reconnais, ce cas est plutôt rare, et ce même si des prénoms peuvent être des noms.
Pour ma part, je n'ai jamais rencontré de nom "Marcel" (Il faut être fou )

[Patrice740]

Bonjour,

... je veux surtout éviter que ça soit copié ailleurs

Ça c'est impossible.
Je ne m'éterniserais pas sur la facilité de contourner les protections Excel et VBA
L'autorisation d'accès doit avant tout être une question de confiance et de responsabilité.

On peut facilement limiter l'accès à un PC grâce au mot de passe de session.
Contrairement à tout ce qui se fait avec VBA, on peut protéger efficacement un fichier avec un mot de passe pour la lecture (sans utiliser le VBA).

[Pierre Fauconnier]

Salut.

Je complète en plussoyant Patrice => Protéger un classeur Excel est utopique. Le Net regorge d'applications qui font sauter les mots de passe, il n'est même pas toujours nécessaire d'avoir une carte de crédit valide...

Rien de ce que tu a pu écrire en VBA ne l'a pas déjà été Si tu veux mieux protéger ton appli en or, ce n'est pas en VBA que tu dois développer, et les vraies protections coûtent bonbons et servent rarement à ce qu'un seul utilisateur puisse utiliser ton travail.

Sur le plan légal, si tu es sous contrat d'emploi, ta production appartient plus à ton employeur qu'à toi... Renseigne-toi donc bien sur ce que tu peux faire ou pas...

[MarcelG]

Salut à tous,

Pierre, je ne sais pas si c'est à mon intention que tu adresses ton post.

Au cas où...

Pour ma part, je pensais que le contexte était professionnel.
Bien sûr, le risque 0 n'existe pas. Toute société, si importante soit-elle, est susceptible de se voir attaquée dans ses systèmes d'information.

Je me suis peut-être projeté trop vite.

Mon activité consiste à développer des applicatifs pour l'entité à laquelle j'appartiens.

Ce que j'ai reporté en VBA est inclus dans chacun de mes applicatifs.
En effet, à mes débuts, en juillet 2009, il m'est arrivé de constater que mes applicatifs étaient copiés malencontreusement par des collaborateurs dans "Mes Documents"

C'est dans ce contexte que je me suis placé - trop vite? - pour répondre à notre ami.

[Pierre Fauconnier]

Des potions magiques du nord du nord, car belges






Santé à toutes et tous