Как проверить наличие пароля на документ?

[VictorK]

Друзья, помогите пожалуйста новичку. Необходим скрипт, который перебирал бы документы в каталоге и те, которые без пароля - удалял. Собственно хотя бы не сам скрипт, а какие функции, свойства использовать.

[uzer_@]

Set myDoc = Documents _
.Open(FileName:="C:\My Documents\Earnings.doc")
myDoc.Password = "why"
myDoc.Close

[uzer_@]

If ActiveDocument.HasPassword = True Then _
MsgBox "The password is set."

[sergeyvg]

Хорошо бы тип файлов, которые запаролены, знать:)
Для Excel думаю можно так установить, запаролена ли книга, при этом пароль в параметре Password указать заведомо невозможный

Код: Выделить всё

Sub test()
  NameForKill = "d:\Книга1.xls"
  On Error Resume Next
  Set A = Workbooks.Open(NameForKill, Password:="2")
  I = Err.Number
  On Error GoTo 0
  If I = 0 Then
    ActiveWorkbook.Close
    MsgBox NameForKill & " должен быть убит!"
  Else
    MsgBox NameForKill & " не убивать"
  End If
End Sub