MOT DE PASSE À L'OUVERTURE D'UN FICHIER EXCEL AVEC TRAÇABILITÉ DANS UN FICHIER TEXT

Commentaire de mortalino le 21/03/2006 14:20:19

Ami Bouv bonjour, (à tout le monde aussi)

En fait, pour être plus explicit, mon fichier se trouve sur le poste du travail, sachant que plusieurs utilisateurs s'y rendent avec le même log que moi, n'importe qui peut accéder aux fichiers perso. Etant donné que c'est l'ordi du boulot et sachant que je bosse pour une grosse boite (Escota / Asf), notre système informatique est très surveillé et ne pouvons installer des logiciels ou composants autre que ce qui est déjà installé.
Le système informatique prévoit également la non possibilité de modifier la Sécurité des Macros, celles-ci se lancent obligatoirement, sans menu contextuelle.

De plus je veux obligatoirement un traçage pour savoir qui tente de l'ouvrir.
Donc sans possibilité de modifier la Sécurité des Macros, je pense qu'il est quand même effectivement difficile à ouvrir (mon administrateur réseau/système a tenté avec echec) et j'ai regardé mon fichier en hexadécimale et tu retrouves difficilement le mot de passe, et je ne connais pas de désassembleur qui ouvre des fichier Excel.

Par contre si tu as des idées pour faire évoluer mon code, je suis preneur !
PS : 1/10 pour ma 1ère source déposé, c'est un peut sévère !?

Amicalement,   Mortalino

Commentaire de bouv le 21/03/2006 20:51:25

Non un simple cryptage du fichier sera suffisant à mon avis.
Tu stocke le mot de passe en crypté.
Quand l'utilisateur entre son mot de passe tu le crypte et tu compare les deux.
Cherche à propos du MD5 sur le site.

Sinon je n'ai pas essayé mais que se passe-t-il si quelqu'un ouvre le fichier depuis la suite OpenOffice ?

Commentaire de celiphane le 23/03/2006 01:29:57

Bonjour,
vous semblez oublier que le fait de laisser enfoncer la touche MAJ pendant l'ouverture de n'importe quel document Office annule toutes les procédures liées au évènement Open, quelque soit le niveau de sécurité...

Bien à vous,
@+
Celiphane

Commentaire de kalobit le 31/03/2006 09:48:08

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

Commentaire de mortalino le 01/04/2006 11:42:28

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