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
636
Réponses
2
Affichages
190
Réponses
5
Affichages
420
Compte Supprimé 979
C
Réponses
8
Affichages
184

Statistiques des forums

Discussions
312 364
Messages
2 087 623
Membres
103 624
dernier inscrit
PhilduMorvan