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
    Clipboard01.jpg
    47.1 KB · Affichages: 27

patricktoulon

XLDnaute Barbatruc
bonjour
cette protection anti dépassement date est illusoire
il suffirait de demarrer excel en bloquant les macros
et modifier la date dans le code vba
et si le code vbproject est protégé par mot de passe un simple editeur binnaire peut m'aider a trouver le mot de passe

conclusion:
c'est de la choucroute
en même temps c'est bon une bonne choucroute
:);)
 

Claudiuss

XLDnaute Nouveau
Bonjour à tous,

Peux-tu nous en dire un peu plus et joindre un fichier exemple pour la gestion de la date d'expiration?

JHA
Bonjour a tous.
Merci beaucoup pour les réponses.
Ok, je mexplique.
Supposons que la date dexpiration est 22/02/2023.
Et date d'aujourd'hui, date du calendrier qui est sur le pc de l'utilisateur est 21/02/2023
Mon soucis est que l'utilusateur, voyant qu'il ne lui reste plus qu'un jour a utiliser le fichier, peut ramener la date d'aujourd'hui au 10/02/2023 par exemple, ainsi il peut encore utiliser le fichier plus qu'il ne devait.

Comment faire?
Lidee qui m'est venu est d'inserer le date picker

Voic donc le code retouché

Private Sub Workbook_Open()
Dim dateexpiration As Date
dateexpiration = "22/02/2023"
If Date < dateexpiration Then
Frmcode.Show
 

patricktoulon

XLDnaute Barbatruc
re
fait moi un fichier exemple comme ça juste le minimum avec une date passée, ton userform,ton datepiker et tout y couinti m^me en mettant un mot de passe au vbproject si tu veux
et même en faisant une offuscation du code dans les modules

et je te montre que je pourrais utiliser ton fichier in vitaæternam

qu'est ce que tu comprends pas quand on te dit que c'est pas possible ?
et que toute astuce que tu pourra inventer et/ou reproduire ; c'est comme faire pipi dans un violon

n'importe quel clampin capable d'aller changer la date system saura faire pour le fichier excel
et m^me si il ne sait pas il fait une recherche internet il il trouve tout ce dont il a besoins pour transformer ton 22/02/2023 en 22/02/4560 🤣

ne perds pas ton temps avec ça

si tu veux faire une app c'est pas excel que tu devrais utiliser mais visual studio par exemple

exemple te faire une dll (protégée par mdp voir même cryptée) qui contiendrais tes fonctions perso pour excel et qui placarderait tout le fichier ( en faire une bouillasse )si la date n'est pas bonne

maintenant si tu comprends pas , ben BON chance ;)
 

Claudiuss

XLDnaute Nouveau
re
fait moi un fichier exemple comme ça juste le minimum avec une date passée, ton userform,ton datepiker et tout y couinti m^me en mettant un mot de passe au vbproject si tu veux
et même en faisant une offuscation du code dans les modules

et je te montre que je pourrais utiliser ton fichier in vitaæternam

qu'est ce que tu comprends pas quand on te dit que c'est pas possible ?
et que toute astuce que tu pourra inventer et/ou reproduire ; c'est comme faire pipi dans un violon

n'importe quel clampin capable d'aller changer la date system saura faire pour le fichier excel
et m^me si il ne sait pas il fait une recherche internet il il trouve tout ce dont il a besoins pour transformer ton 22/02/2023 en 22/02/4560 🤣

ne perds pas ton temps avec ça

si tu veux faire une app c'est pas excel que tu devrais utiliser mais visual studio par exemple

exemple te faire une dll (protégée par mdp voir même cryptée) qui contiendrais tes fonctions perso pour excel et qui placarderait tout le fichier ( en faire une bouillasse )si la date n'est pas bonne

maintenant si tu comprends pas , ben BON chance ;)
Ok, je vois, merci beaucoup, une fois encore.
 

patricktoulon

XLDnaute Barbatruc
ok
je vois que tu comprends toujours pas
alors je vais être plus clair
quoi que ce soit que tu fera comme code( sur une date du system ou pas ) est dé jouable par n'importe qui qui sait ou chercher et celui qui sait pas y a google et il saura

tu perds ton temps ;)
 

Claudiuss

XLDnaute Nouveau
Bonjour,
l'utilisateur déregle la date du système , c'est à dire date du PC.
Vous pensez qu'une personne irait dans les paramettres Windows pour changer la date!!
Bonjour à tous,

Oui c'est possible, jai meme essayer sur ma machine , ça a marché.
le fichier au lieu de s'expiré dans 2 jours par exemple , si je modifie la date du PC, ça prolonge le nombre de jour restant avant expiration.
 

patricktoulon

XLDnaute Barbatruc
re
bonjour
juste en passant comme ca vite fait car il est maintenant indéniable que ça rentre pas dans ta tête

j'ai ouvert ton fichier et BAM!!! erreur librairie manquante

ha !!!mais quelle est donc cette librairie

je te le donne dans le mille
c'est la "Microsoft Windows Common controls-2.6.0
en gros c'est ton calendrier (ton datepicker)

sauf qu'aujourd'hui plus personne ne l'a ce controls d'origine sur les version supp a 2007
il faut bricoler pour l' installer cette dll et l'enregistrer dans le registre

sauf que plus personne aujourd'hui sur les versions d'excel ne veulent l'installer

conclusion :
ton fichier est déjà périmé avant même d’être utilisé

tu me diras "même une montre cassée donne l'heure exacte 2 fois par jour "

ok je sort
diabolo.gif
 

Claudiuss

XLDnaute Nouveau
re
bonjour
juste en passant comme ca vite fait car il est maintenant indéniable que ça rentre pas dans ta tête

j'ai ouvert ton fichier et BAM!!! erreur librairie manquante

ha !!!mais quelle est donc cette librairie

je te le donne dans le mille
c'est la "Microsoft Windows Common controls-2.6.0
en gros c'est ton calendrier (ton datepicker)

sauf qu'aujourd'hui plus personne ne l'a ce controls d'origine sur les version supp a 2007
il faut bricoler pour l' installer cette dll et l'enregistrer dans le registre

sauf que plus personne aujourd'hui sur les versions d'excel ne veulent l'installer

conclusion :
ton fichier est déjà périmé avant même d’être utilisé

tu me diras "même une montre cassée donne l'heure exacte 2 fois par jour "

ok je sort
Regarde la pièce jointe 1162374
Bonsoir à tous,
ok, merci beaucoup,
S'il vous plait, à part datepicker, il y a t-il un moyen pour empècher la modification de la date du PC?

excusez-moi de vous déranger.
 

patricktoulon

XLDnaute Barbatruc
re

empêcher un utilisateur a modifier la date system reviendrait a prendre possession de son pc
même si je te l’accorde c'est pas bon d'antidater le system
c'est alors ton app qui deviendra intrusive
le propriétaire du pc fait bien ce qu'il veut de son system
de quel droit toi tu va lui dire non
un gars me donne une app comme ca ben son app il se la garde crois moi et je ne serais pas le seul a te le dire

je ne sais plus comment te le dire que tu perds ton temps avec excel pour ce genre de truc
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 105
Messages
2 085 350
Membres
102 870
dernier inscrit
Armisa