HasPassword property

[Agos]

Hi all,
I've a recursive function that open .doc files on HDD, but
some of them can be password-protected...
I tried with the
Documents.Open(FileName).HasPassword
property, but Word still ask me password and
after that he continues with the code.
How can I ignore password-protected files from opening?

Agos

 

[Gandalf]

Hi Agos

I've found that this approach works

Dim dobj As Document
On Error Resume Next
set dobj=Documents.Open("C:\Temp\Passwordeddoc.doc", , , , " ", " ", , "
", " ", , , True)
err.clear
If dobj Is Nothing Then
MsgBox "Error Password Protected and wrong password supplied"
Else
MsgBox "No error File should be open"
End If