Compte à Rebours sous Excel

[papinball]

une demande un peu particulière :

qui saurait me faire un programme genre compte à rebours pour qu'un fichier excel devienne inutilisable sans rentrer un mot de passe d'activation ou autre truc dans le genre au bout d'un certain temps ? 

je n'ai pas trouvé beaucoup d'infos la dessus 

[Persecutor]

une demande un peu particulière :

qui saurait me faire un programme genre compte à rebours pour qu'un fichier excel devienne inutilisable sans rentrer un mot de passe d'activation ou autre truc dans le genre au bout d'un certain temps ? 

je n'ai pas trouvé beaucoup d'infos la dessus 

tu peux protèger un fichier excel par mot de passe a l'ouverture 
mais les mots de passe excel sont assez siples a cracker 
vaut presque mieux que tu zip ton fichier avec un mot de passe c'est limite plus securisé 

[Persecutor]

ha merd' je viens de relire
tu veux que le fichier se bloque au bout de quelques secondes c'est ca ?

une fois excel ouvert point de salut
c'est vers les macro excel qu'il faut te touner

[papinball]

ha merd' je viens de relire
tu veux que le fichier se bloque au bout de quelques secondes c'est ca ?

une fois excel ouvert point de salut
c'est vers les macro excel qu'il faut te touner

en fait, je voudrais que le fichier ne fonctionne plus à une date donnée

juste pour leur faire comprendre à tous ces cons de bureaucrates qui ne veulent pas me filer une heure sup pour tous les tableaux que je leur ai crées que d'ici un petit moment ils risquent avoir besoin de moi 

[glasgow]

juste pour leur faire comprendre à tous ces cons de bureaucrates qui ne veulent pas me filer une heure sup pour tous les tableaux que je leur ai crées que d'ici un petit moment ils risquent avoir besoin de moi 

^- ca c'est bon  :ic:

[Wamadeus]

J'ai trouvé ça (ça s'applique après 30 jours dans ce cas)

Private Sub Workbook_Open()
    ' Range "DateCheck" Is a named cell on XlVeryHiden  Sheet.
    If Range("TimeCheck") <> vbNullString Then ' Date has been set.
    'Check date.
    If Range("TimeCheck") < Date - 30 Then 'Expired
    'Your passord Code HERE
End If
Else 'Set first Open date
    Range("TimeCheck") = Date
    Me.Save
End If
End Sub

Plus d'info

[papinball]

je vais tester ça dans la soirée  ^-

merci Wam 

[Persecutor]

attention ca oblige a lancer les macros
donc pense aussi a proteger les macros par mot de passe
pour pas qu'il puissent les desactiver y'a una astuce qui consite
a n'ouvrir qu'une page vide si on clique sur ne pas activer les macros

http://downloads.phpnuke.org/fr/download-item-view-g-b-b-n-x.htm

http://www.admexcel.com/

http://www.excel-pratique.com/

http://www.excel-pratique.com/

http://www.toocharger.com/cours/informatique/bureautique/exc­el/

http://www.excelabo.net/mpfe/lecon0.php

http://www.ybet.be/formation_excell/2_fonctions_excel.php

http://www.polykromy.com

ou encore http://www.excel-downloads.com/weblinks/excel-cours-et-tutor­iaux.html


well  j'ai débale tous mes favoris excel la