Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Code vba pour lier datepicker à la date

Claudiuss

XLDnaute Nouveau
Bonjour,
s'il vous plait , jai une petite application qui a une date d'expiration . je ne voudrais pas
que l'utilisateur déregle la date du système , c'est à dire date du PC.
donc pour ça, jai inserré un datepicker dans le ficher excel dans cellule B4.

Voic donc le code

Private Sub Workbook_Open()
Dim expirydate As Date
Dim DTPicker1 As Date
expirydate = "22/02/2023"
DTPicker1(Range("B4")).Value = Date
If Date < expirydate Then
Frmcode.Show

je voudrais que la valeur de la cellule B4 tient lieu de date d'aujourdui
 

Pièces jointes

  • Clipboard01.jpg
    47.1 KB · Affichages: 27

Laurent78

XLDnaute Occasionnel
une montre cassée, mais à aiguilles et encore il faut qu'il y ait encore les aiguilles pour donnée l'heure juste 2 fois par jour. Je sors aussi
 

Laurent78

XLDnaute Occasionnel
Bonsoir,
Sauf erreur, il est possible d'empêcher un utilisateur de modifier la date de son système. Tout d'abord un utilisateur courant ne devrait pas être administrateur de son poste, cela réduit la surface d'attaque. Et donc, si on est bien dans la cas d'une société, cela est possible via des GPO (locales ou non). Par contre si le fichier Excel est destiné à être distribué à "n'importe qui", c'est peine perdue. Une autre idée serait de s'appuyer sur la date de création du fichier, mais une fois de plus, cela se contourne.
Bonne soirée,
Cdlt
Laurent
 

Claudiuss

XLDnaute Nouveau
ok, merci beaucoup pour les explications.
 

Claudiuss

XLDnaute Nouveau
Bonsoir Laurent,
ok, merci beaucoup pour les explications
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…