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
740
Réponses
32
Affichages
1 K
Réponses
4
Affichages
819
Réponses
2
Affichages
463
Réponses
14
Affichages
363
Réponses
5
Affichages
723
Compte Supprimé 979
C

Membres actuellement en ligne

Statistiques des forums

Discussions
315 246
Messages
2 117 750
Membres
113 300
dernier inscrit
faby79