Mot de passe à l'ouverture d'un fichier excel avec traçabilité dans un fichier text

5/5 (11 avis)

Snippet vu 27 499 fois - Téléchargée 29 fois

Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire

Commentaires

mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16 -
Bon ben en fait, c'est pas que c'est inutile ce que j'ai fait mais presque... car, même si on passe au travers de la sécurité des macros avec une Macro Complémentaire, si on décoche l'option "Faire confiance", je suis piné et le fichier s'ouvre sans demande de mot de passe

Par contre, j'ai bifurquer sur une autre idée, je vais essayé de retranscrire ça en VB6 pour le lancement des Applications (code qui sera donc facilement modifiable pour une sorte d'enregistrement du .exe, avec écriture dans le Regedit)

Affaire à suivre...

Mortalino

PS : promis, c'est mon dernier commentaire sur cette source
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16 -
Salut la compagnie, en fait je vais donc faire une Macro Complementaire avec les noms de mes fichiers, dans cette Macro je vais intégrer un Algorithme que je viens de faire, en tout cas la vérification a une lettre pret, ca marche bien.

A vous de me dire si ça peut etre pas mal :
(pour le tester, j'avais créé un UserForm1, avec 2 controle : TextBox1 & CommandButton1)

Sub Verifier_Mot_De_Passe()

Dim SaisieMotPasse As String, NbCaractere As Long, i As Long, j As Long, k As Long

SaisieMotPasse = Me.TextBox1.Text
NbCaractere = Len(SaisieMotPasse)

Dim Lettre(1 To 16) As String, NbA(1 To 16) As Variant, NbC(1 To 16) As Variant

For i = 1 To NbCaractere
Lettre(i) = Mid(SaisieMotPasse, i, 1)
For j = 1 To 256
If Lettre(i) = Cells(j, 1).Value Then
NbA(i) = Cells(j, 2).Value
NbC(i) = (NbA(i)) * (3 ^ i)
End If
Next j
Next i

Dim MotC As Variant
MotC = 7

For k = 1 To NbCaractere
MotC = MotC + NbC(k)
Next k

MotZ = Range("D1").Value

If MotZ = MotC Then
MsgBox ("Bon Mot de Passe")
Else
MsgBox "Mauvais Mot de Passe"
End If

End Sub
_________________________________________________________________________________________
Sub Saisir_Mot_De_Passe()
Dim SaisieMotPasse As String, NbCaractere As Long, i As Long, j As Long, k As Long

SaisieMotPasse = Me.TextBox1.Text
NbCaractere = Len(SaisieMotPasse)

Dim Lettre(1 To 16) As String, NbA(1 To 16) As Variant, NbC(1 To 16) As Variant

For i = 1 To NbCaractere
Lettre(i) = Mid(SaisieMotPasse, i, 1)
For j = 1 To 256
If Lettre(i) = Cells(j, 1).Value Then
NbA(i) = Cells(j, 2).Value
NbC(i) = (NbA(i)) * (3 ^ i)
End If
Next j
Next i

Dim MotC As Variant
MotC = 7

For k = 1 To NbCaractere
MotC = MotC + NbC(k)
Next k

Range("D1").Value = MotC

End Sub

C'est pas tant où je stocke le mot de passe qui m'importe (là c'est temporaire), c'est plus au niveau algo, serait il facile à casser ?
Merci de vos précisions

Mortalino
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16 -
Merci K@LOBIT,
En fait je n'avais encore jamais fait de Macro complémentaire, et, en ayant fait une récemment, j'ai effectivement remarqué, que même avec la sécurié des Macros de niveau fort, le code de la Macro complémentaire s'exécute.

Donc je vais m'y attelé, et dès que c'est fait, je transmettrai la Macro complémentaire à la place de mon code Pourrave !!

Merci à tous pour vos savoirs que vous partagez..
Mortalino
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2 -
salut,

Pourquoi ne pas créer une macro complémentaire qui gère l'accès aux fichiers.

Cette macro pourraît stocker les chemins fichiers protégés.
En contrôlant les évènement application d'Excel, tu repère si on tente l'ouverture d'un de ces fichiers et tu code un password ou une manip à exécuter pour débloquer l'accès.

par contre on est plus en niveau débutant là mais bon c'est non plus insurmontable.

Pour le MD5, rien ne t'empêche de créer ton propre algo de Hash

un dizaine de ligne suffit et le mot de passe n'est pas décryptable.

bonne prog
K@lobit
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16 -
Merci Bouv pour le MD5, je vais me rencarder.
Merci aussi à Celiphane, je t'avouerai que la coup du Maj, je ne connaissais pas et c'est effectivement à prendre en considération.

Mortalino

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.