Bonjour à tous, ça faisait longtemps et j'espère que vous avez tous bien progressé parce que moi, pas!

Je souhaiterai savoir si il y a un moyen pour récupérer dans une cellule la date d'un changement de mot de passe par le menu: Outils / Options / Security / Password to modify.

En effet, dans une feuille bien cachée pour les utilisateurs (veryhidden ), je récupère une variable date qui prend en considération le changement de mot de passe de l'utilisateur.

Je peux ainsi lui indiquer tous les 3 mois de le changer (audit request)!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Expiredate()
 
Dim DateExpired As Date
 
DateExpired = ThisWorkbook.Worksheets("Feuillecachée").Range("A65000").End(xlUp).Value
 
If Now() - 90 >= DateExpired Then
MsgBox "Hello" & VBA.Environ("Username") & " please change the PW each 3 months, last time period changed was on " & CStr(DateExpired) & "."
End If
 
End Sub
Merci d'avance