limite de validité

[lagodille]

bonsoir

je suis tombé sur l'excellent programme de thierry seulement je n'arrive pas à activer la modification de mot de passe au dela de 30 jours.
Est ce que quelqu'un peut m'expliquer pourquoi
mdp ADMIN/ADMIN

ci joint le fichier zipé

merci d'avance

 

[JCGL]

Re : limite de validité

Bonjour à tous,

Il me semble que c'est cette partie du code qu'il faut modifier :

Private Sub MaSecondeMacro(User As String)
Dim Message As Byte
Dim Rech As Range
    
    Set Rech = Range("Users").Find(Txb_ID_Util, LookIn:=xlValues, lookat:=xlWhole)
    If (Now - Rech.Offset(0, 3)) >[SIZE=4][COLOR=Red] 30[/COLOR][/SIZE] Then

Sous toutes réserves, concernant un code de @Thierry 🙂 (il est trop fort le bougre)
PS : ah ben Oui mais Non :

Il y a deux Niveaux standards, plus le Niveau ADMIN.
Les Users de Niveau Standards 1 et 2 ont accès à plus ou moins de feuilles de ce classeur et sont invités à changer leur mot de passe tous les 30 jours… (Pas besoin pour le chanceux l'ADMIN…! )

Donc, le MdP Admin est sempiternel
A+

 

[lagodille]

Re : limite de validité

bonjour
ok ca je l'ai bien compris mais si par exemple tu prends le code TATA/TATA tu vas tombé sur un accès limité qui rentre dans le cadre défini par contre vu sa date de validité on devrait engager le changement du mot de passe mais ca ne se produit pas ...gloups ?
merci