Protection d'une application

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 29 Juin 2008

• #2

Re : Protection d'une application

Bonjour,

Code:

Private Sub Workbook_Open()
    If UCase(Environ("computername")) = "JBPORTABLE" And UCase(Environ("username")) = "BOISGONTIER" Then
      For s = 2 To Sheets.Count-1      ' on visualise les feuilles
        Sheets(s).Visible = True
      Next s
    Else
      ActiveWorkbook.Close
    End If
    '-- durée
    If Sheets("secret").[A1] = "" Then
      Sheets("secret").[A1] = Date + 30
      MsgBox "Valable jusqu'au " & Sheets("secret").[A1]
      Sheets("secret").Visible = xlVeryHidden
      ActiveWorkbook.Save
    Else
      If Date > Sheets("secret").[A1] Then
         Sheets("utilisateur").Visible = xlVeryHidden
         MsgBox "expiré"
         ActiveWorkbook.Save
         ActiveWorkbook.Close
     End If
  End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   For s = 2 To Sheets.Count ' on masque les feuilles
     Sheets(s).Visible = xlVeryHidden
   Next s
End Sub

JB

 

Pièces jointes

• ProtectionPostex.xls

  32 KB · Affichages: 96

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 29 Juin 2008

• #3

Re : Protection d'une application

Merci Jacques, je vais l'essayé.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Juin 2008

• #4

Re : Protection d'une application

Bonjour apt, BOISGONTIER, le fil, le forum


L'éternel problème 😉

• apt: Et si l'utilisateur désactive les macros?


• BOISGONTIER: merci pour le code VBA, (et tes interventions en général)

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 29 Juin 2008

• #5

Re : Protection d'une application

Si l'utilisateur désactive le code VBA, les feuilles ne seront pas visualisées.

JB

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Juin 2008

• #6

Re : Protection d'une application

Re



Oui, mais si ce même utilisateur sait pourquoi il a désactivé les macros
c'est qu'il doit être en mesure de les rendre visible
en allant dans VBE.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 29 Juin 2008

• #7

Re : Protection d'une application

Le code doit bien sûr être verrouillé.

JB

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Juin 2008

• #8

Re : Protection d'une application

Re


Je parlais d'un utilisateur averti (ou fréquentant assidument ce forum entre autre) qui sait lever le verrou (ou comment le faire) .


Pour des utilisateurs novices d'Excel, ta protection est opérante.

(Mais en deux ans , ces "béotiens" ont le temps de devenir des utilisateurs aguerris , surtout s'ils connaissent XLD et ses confrères 😉 )

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 29 Juin 2008

• #9

Re : Protection d'une application

Merci staple1600 et JB.

Ne peut-on pas sauvegarder auparavant les utilisateurs et leurs mdp dans un fichier *.ini et afficher en premier lieu un INPUT Box pour pouvoir utiliser le programme ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Juin 2008

• #10

Re : Protection d'une application

Re


Tu peux aussi sauvegarder les logins/passwords dans la base de regisre
(à manier avec précaution)

Mais, il restera toujours la possibilité qu'un un utilisateur soit un jour
capable de contourner tes tentatives de protection.

Fais une recherche sur le forum.

PS: tu peux aussi stocker dans une feuille masquée de ton classeur
(de nombreux exemples sur le forum sont à ta disposition)
En voici un (parmi de nombreux autre)
exemple 1*

*: de BOISGONTIER 😉

 

Dernière édition: 29 Juin 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 29 Juin 2008

• #11

Re : Protection d'une application

Merci bien staple1600 de l'exemple.

Je vais voir comme pourrais-je l'adapter à mon besion.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Juin 2008

• #12

Re : Protection d'une application

Bonjour,

Voir PJ

JB

 

Pièces jointes

• ProtectionPostex.zip

  28.9 KB · Affichages: 58

Dernière édition: 30 Juin 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 2 Juillet 2008

• #13

Re : Protection d'une application

Merci Jacques B.

 

Vote positif 0 Vote négatif

J

jmd2

XLDnaute Accro

• 2 Juillet 2008

• #14

Re : Protection d'une application

hello à vous tous,

question au passage :
s'il désactive VBA au démarrage du classeur, un VBAiste chevronné peut-il lire le code ?
(en passant par un autre classeur ou autre soluce)

*****

 

Dernière édition: 2 Juillet 2008

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 2 Juillet 2008

• #15

Re : Protection d'une application

Salut, à mon humble avis si tu veux vraiment "mieux" protéger tes macros VBA il faut passer
par la création de DLL puis de compresseurs d'exé/dll style AsPack/AsProtect ASPACK SOFTWARE - Best Choice Compression and Protection Tools for Software Developers
Pour cela voir par exemple VB6 et technologie ActiveX - Club d'entraide des développeurs francophones et en particulier http://activex.developpez.com/[ActiveX_&_VB6] Les DLL ActiveX.pdf
Car il existe des utilitaires gratuits ou non qui bypassent les mots de passe VBA
( en fait ils ne cherchent pas le mot de passe mais demandent à l'utilisateur d'en saisir un autre )
la déprotection est instantanée
Par contre pour le mot de passe à l'ouverture cela dépendra principalement de la longueur du mot de passe en cas d'utilisation de la force brute, et donc du temps, sauf si l'on garde l'option par défaut cryptage XOR auquel cas la déprotection sera instantanée

 

Dernière édition: 2 Juillet 2008

Vote positif 0 Vote négatif