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ésolu(e)
XL 2019 VBA
Réponses
18
Affichages
663
Réponses
32
Affichages
909
Réponses
4
Affichages
797

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
314 783
Messages
2 112 923
Membres
111 702
dernier inscrit
ELEHMAEA