Date Limite De Validite

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Juillet 2006

• #2

Re : Date Limite De Validite

Bonjour Whooki, bonjour le forum,

Pas très cool ton plan. Tu veux pas exploser le PC non plus ?... Je pense que ce que tu demandes est faisable mais, peut-être me trompe-je, je ne pense pas que quelqu'un te donne un coup de main sur ce coup là.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #3

Re : Date Limite De Validite

Bonjour,
pour etre dans la continuité de Robert que je salue au passage,
il est extrement simple de faire sauter un mot de passe, à quoi bon se casser la tete alors?
un petit mot de passe suffit, soit on le connais soit on reste dehors, soit on fait sauter...
bon courage comme meme!

 

Vote positif 0 Vote négatif

W

whooki

XLDnaute Occasionnel

• 26 Juillet 2006

• #4

Re : Date Limite De Validite

En fait, j'ai réalisé un fichier pour ma boite, et je voudrais me proteger en cas de départ forcé...la 2e partie de ce que désire n'est pas necéssaire pour le moment, mais la limite de validité de 30 j l'ai. Je ne sais pas trop comment faire pour qu'un fichier devienne initulisable.

Merci encore.

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 26 Juillet 2006

• #5

Re : Date Limite De Validite

Bonjour Whooki, Flo, Robert


Pour compléter ce que vous dites :

concernant la derniere partie de la question, supprimer les données d'un dossier :

Si l'ordinateur n'est pas le tien cela peut-être assimilé à du piratage informatique et les sanctions dans le cas de destruction de données les peines sont doublées.

Il faut bien réfléchir aux conséquences possibles.

Par ailleurs, si c'est un travail qui t'est demadé pendant un stage ou une periode d'essai par ton employeur, le classeur appartient à ton employeur et tu n'as pas le droit de le détruire et encore moins les données générées par ce classeur.

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 26 Juillet 2006

• #6

Re : Date Limite De Validite

dg62 à dit:

Bonjour Whooki, Flo, Robert


Pour compléter ce que vous dites :

concernant la derniere partie de la question, supprimer les données d'un dossier :

Si l'ordinateur n'est pas le tien cela peut-être assimilé à du piratage informatique et les sanctions dans le cas de destruction de données les peines sont doublées.

Il faut bien réfléchir aux conséquences possibles.

Par ailleurs, si c'est un travail qui t'est demadé pendant un stage ou une periode d'essai par ton employeur, le classeur appartient à ton employeur et tu n'as pas le droit de le détruire et encore moins les données générées par ce classeur.

Cliquez pour agrandir...

Salut
Pourquoi être radin ???
2 bâtons de dynamite en partant me semble une meilleure solution, non ?

 

Vote positif 0 Vote négatif

W

whooki

XLDnaute Occasionnel

• 26 Juillet 2006

• #7

Re : Date Limite De Validite

Personne ne ma jamais demandé de le faire, aucune personne est au courant, c'est juste un fichier pour faciliter mon travail.Je dirige une petite société et je n'ai pas très envi que tout le monde fouine dans mes affaires. Ce classeur je l'ai passé à mon assistant, on utilise le même. Je n'ai pas très envi qu'il récupere la programmation que j'ai faite, bien que j'ai tout protégé par mot de passe...

Sans parler de destruction, est-il possible de demander un mot de passe après 30 jours d'utilisation. Cela est similaire à une version démo en quelque sorte.

Je vous assure qu'il n'est pas question de piratage.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #8

Re : Date Limite De Validite

re sinon pour ton affaire de date de validité, ce que je ferais:

sur une feuille cachée en veryhidden
lors de la premiere ouverture j'enregistre la date +30 en A1
en B1 je met = aujourdhui()

et comme condition à l'ouverture dans le workbook je met
si A1 > B1
vrai open
faux msgbox "...."

voila, seul probleme de vulnerabilté avec le jour qui peut etre modifier avec le jour system...

en esperant t'avoir aider.

 

Vote positif 0 Vote négatif

W

whooki

XLDnaute Occasionnel

• 26 Juillet 2006

• #9

Re : Date Limite De Validite

Oui cela m'aide, mais en cas d'expiration comment fais-tu pour faire apparaitre une msgbox?

Merci de ton aide

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #10

Re : Date Limite De Validite

Si tu veux je vais y reflechir cette apres midi en attendant bon apetit!

 

Vote positif 0 Vote négatif

W

whooki

XLDnaute Occasionnel

• 26 Juillet 2006

• #11

Re : Date Limite De Validite

Je ne suis pas très doué pour faire ce code. Qu'est ce que tu mets dans workbook open.

Private Sub Workbook_open()

With Sheets("feuil1")

If cells("b1")> cells("c1")

ensuite je ne sais pas quoi mettre...

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #12

Re : Date Limite De Validite

re

je mettrais(sachant que je suis pas un boss):

Private Sub Workbook_open()

Dim AAA as ..., BBB as ....
AAA = sheets("Cache").cells(1,1).value
BBB = sheets("Cache").cells(1,2).value


If AAA > BBB then
nothing

else
activeworkbook.close

ou un truc comme ca mais alors je ne suis pas sur que ca se dis comme ca....

bon courage, je vais tester de mon coté!

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #13

Re : Date Limite De Validite

Un premier probleme se pose, on peut refuser de mettre les macros...

 

Vote positif 0 Vote négatif

W

whooki

XLDnaute Occasionnel

• 26 Juillet 2006

• #14

Re : Date Limite De Validite

J'essaye mais le code ne fonctionne pas il me met erreur 6

Private Sub Workbook_open()

Dim AAA As Integer, BBB As Integer

AAA = Sheets("feuil1").Cells(1, 2).Value
BBB = Sheets("feuil1").Cells(1, 3).Value


If AAA > BBB Then ActiveWorkbook.Open

ActiveWorkbook.Close



End Sub

Merci encore

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 26 Juillet 2006

• #15

Re : Date Limite De Validite

le code a un peu evoluer depuis:
Private Sub Workbook_open()
Application.DisplayAlerts = False
Dim AAA As Long, BBB As Long
AAA = Format(Sheets("Cache").Cells(1, 1), "ddmmyyyy")
BBB = Format(Sheets("Cache").Cells(1, 2), "ddmmyyyy")

If AAA > BBB Then
GoTo out1

Else
Dim TXT As String
TXT = "ERROR.xls"

ActiveWorkbook.SaveAs Filename:=TXT

ActiveWorkbook.Close Filename:=TXT
End If

out1:
Sheets("Feuil1").Range("A1").Select
Application.DisplayAlerts = True
End Sub

en faite c'est un peu de la bidouille....
le seul gros probleme et que je ne sais pas resoudre c'est le fait d'avoir le choix d'activé les macros....
la faille!

 

Pièces jointes

• proectessai.xls

  25.5 KB · Affichages: 77

Vote positif 0 Vote négatif