Discussion :

[sayannara]

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

[sayannara]

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.

[sayannara]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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