Inscrire des mots de passe dans Excel

[siocnarf]

Bonjour,

J'ai un chiffrier dans lequel j'inscris les noms des serveurs en colonne A, les identifiants en colonne B. J'aimerais pouvoir inscrire les mots de passe dans la colonne C mais de façon à ce que l'information soit inscrite sécuritairement. Par la suite, je souhaiterais utiliser un programme qui est capable d'utiliser l'identifiant et le mot de passe.

Je ne crois pas que ce soit possible mais je pose tout de même la question.

 

[job75]

Re : Inscrire des mots de passe dans Excel

Bonjour siocnarf,

J'aimerais pouvoir inscrire les mots de passe dans la colonne C mais de façon à ce que l'information soit inscrite sécuritairement.

Je ne crois pas que ce soit possible mais je pose tout de même la question.

Si vous voulez une sécurité absolue, en effet vous devez abandonner 🙁

Avec une sécurité relative, c'est possible car on peut (presque) tout faire sur Excel 🙂

A+

 

[siocnarf]

Re : Inscrire des mots de passe dans Excel

Bonjour,

Pouvez-vous expliquer "sécurité relative"?

Merci,

 

[job75]

Re : Inscrire des mots de passe dans Excel

Re,

Voici un exemple sur le fichier joint.

1) Créer les 2 noms masqués Identifiant et MDP par la macro :

Sub CreerNoms()
ThisWorkbook.Names.Add "Identifiant", Array("pierre", "paul", "jean", "jacques")
ThisWorkbook.Names.Add "MDP", Array("tata", "titi", "toto", "tutu")
ThisWorkbook.Names("Identifiant").Visible = False
ThisWorkbook.Names("MDP").Visible = False
End Sub

Cette macro peut ensuite être supprimée si l'on veut.

2) Cette macro pour tester la validité du mot de passe associé à l'identifiant :

Sub Valider()
Dim iden As String, i As Variant, m As String
1 iden = InputBox("Identifiant :")
If iden = "" Then Exit Sub
i = Application.Match(iden, [Identifiant], 0)
If IsError(i) Then MsgBox "Identifiant inexistant !": GoTo 1
m = InputBox("Mot de passe :")
If m = "" Then Exit Sub
MsgBox "Mot de passe " & IIf(Application.Index([MDP], i) = m, "", "non ") & "valide..."
End Sub

3) Enfin, et c'est là la sécurité, dans VBA => menu Outils => Propriétés de VBAProject => Protection et entrer votre mot de passe protégeant l'accès à VBA.

La sécurité est relative car on peut toujours cracker un mot de passe, il faut le savoir.

A+