Check Encrypt Fichier Office

Bonjour tout le monde,

je souhaiterais grâce à VBScript checker si un fichier Office (doc, .docx, .xls, .xlsx) est encrypter, c-à-d que le fichier a été protégé par un MDP dans une application OFfice.

Je recherche donc un objet, une propriété qui me renverrai cette information.

Merci pour vos réponses.
Yann Greder

Est-ce que personne n'a la réponse ou alors je me suis mal fait comprendre ?

Demandez moi de préciser si besoin, j'ai vraiment besoin de cette information s'il vous plait.

J'ai trouvé ceci.. Le problème c'est que je suis obligé d'ouvrir mon fichier et si le fichier est protégé, le script s'arrete au prompt du MDP..

Je ne suis plus très loin, si qqun à une idée svp.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

path = "C:temptemp2.xls"   Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.open(path)' , "" , "rc4", "password") if objWorkbook.HasPassword then   msgBox "Oui il y a un MDP" else msgBox "Non il n'y a pas de MDP" end if objExcel.activeworkbook.close 'objExcel.quit 'objWorkbook.close

---