XL 2010 auto destruction d'un fichier a une date précise pour un fichier .xltm

[sebbbbb]

Bonjour

je souhaiterai qu'un code d'auto destruction d'un fichier se lance à l'ouverture pour un fichier a une date bien précise (pour éviter que le fichier soit utilisé à l'extérieur de l'entreprise par ancien stagiaire ou ancien collègues).

j'ai bien trouvé le code ci-dessous :

mais lors de l'enregistrement j'ai toujours un message d'erreur qui s'affiche à l'ouverture (voir ci-dessous)

merci a vous par avance

seb

 

[Victor21]

Bonjour.

Protection illusoire : il suffit de désactiver les macros pour annihiler toute tentative de destruction automatique.

 

[sebbbbb]

Oui sauf si la macro s execute au demarrage et que l utilisateur ne le sait pas

 

[kiki29]

Salut, peut-être en faisant une recherche sur : obfuscation code vba ? voir ici un exemple.

 

[soan]

Bonjour sebbbbb, le fil,

Dans ta sub Workbook_Open(), essaye d'éviter cette instruction :

MsgBox "Veuillez patienter pendant que la sub d'autodestruction s'exécute, merci."

soan

 

[Victor21]

Re, sebx5.

Têtu ?

Oui sauf si la macro s execute au demarrage et que l utilisateur ne le sait pas

Oui, sauf que c'est impossible que la macro s'exécute au démarrage si les macros ne sont pas activées.

 

[sebbbbb]

Oui mais les macro sont protegees par mdp

 

[sebbbbb]

Ok je comprends
Mais si les macro ne sont pas activees il n y a rien qui fonctionne

 

[sebbbbb]

Merci Soan
EN fait c est un exemple que j ai trouvé sur internet et qui reste a paufiner
Le hic ce sont les mess erreurs
Merci a vous

 

[sebbbbb]

pour résumer mon fichier est un fichier modele qui créé automatiquement des fichiers

je voudrais qu'a une date X, le fichier mère donc .xltm lance le code d'auto destruction mais comme indiqué j'ai des messages erreurs

je sais qu'un utilisateur averti pourra tjrs contourner avant d'envoyer le code mais c'est une façon de protéger le fichier pour des utilisateurs qui ne connaissent pas forcement le langage vba
merci

 

[soan]

Re,

Un exemple, avec autodestruction programmée au 1er Octobre 2020 :

Private Sub AutoDestroy()
  'boom !!! (autodestruction silencieuse à retardement)
End Sub

Private Sub Workbook_Open()
  If Date >= #1/10/2020# Then AutoDestroy
  'suite du code habituel de la sub Workbook_Open()
End Sub

J'ai mis le test « >= » au cas où l'utilisateur ouvre le fichier
soit le 1er Octobre 2020, soit un peu après.

soan

 

[sebbbbb]

Bonjour Soan
merci pour ta contribution

dois je rajouter quelque chose au code ? car rien ne se passe

 

[sebbbbb]

Il n'y a rien dans la sub AutoDestroy ?

 

[soan]

c'est normal que rien ne se passe !

1) ça se déclenche le 1er Octobre 2020, et on n'est que le 20 Septembre 2020 !

2) il faut que tu rajoutes du code dans la sub AutoDestroy() !

soan

 

[soan]

Autre version, en plus pervers :

Private Sub AutoDestroy()
  'boom !!! (autodestruction silencieuse à retardement)
  'ajouter ici le code pour détruire le fichier !!!
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Date = #1/10/2020# Then AutoDestroy
  'suite du code habituel de Workbook_Open
End Sub

Ainsi, tu laisses l'utilisateur faire son job habituel, puis juste quand
il ferme le classeur, ça lui détruit tout ce qu'il a fait !

(c'est méchant, hein ? )

soan