Microsoft 365 Distribuer un fichier excel à code vba aux utilisateurs par génération de mot de passe

Claudiuss

XLDnaute Nouveau
Bonjour mes Chers,

j'ai à ma possession un fichier excel vba que j'aimerais distribuer aux utilisateurs par génération de code ou mot de passe.

Aidez-moi s'il vous plait.

Merci d'avance.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Claudiuss, CCMJoe,
Un essai en PJ. On donne à chaque utilisateur avec le logiciel un login et un mot de passe.
Dans le logiciel il faut vérifier la corrélation.
Voici trois fonctions qui permettent de créer un login et un mot de passe simple, et une fonction pour la vérification.
VB:
Function GenerationLogin(X)
For i = 1 To 4
    M = M & Chr(Int(Application.RandBetween(65, 90)))
    M = M & Chr(Int(Application.RandBetween(97, 122)))
Next i
GenerationLogin = M
End Function
Function MDP(M)
For i = 1 To Len(M)
    v = v + Asc(Mid(M, i, 1))
Next i
MDP = v
End Function
Function ControleMDP(M, N)
For i = 1 To Len(M)
    v = v + Asc(Mid(M, i, 1))
Next i
If N = v Then ControleMDP = "OK" Else ControleMDP = "KO"
End Function

Evidemment c'est une sécurité basique pour des utilisateurs classiques non mal intentionnés.
XL ne résiste pas à une malveillance ou un hackage.
Mais peut être suffisant si on a confiance dans les collègues à qui on livre.
 

Pièces jointes

  • MDP.xlsm
    18.3 KB · Affichages: 37

Discussions similaires

Réponses
4
Affichages
622
Réponses
2
Affichages
163
Réponses
5
Affichages
404
Compte Supprimé 979
C
Réponses
8
Affichages
158

Statistiques des forums

Discussions
312 214
Messages
2 086 313
Membres
103 175
dernier inscrit
abcc