通过EXCELVBA批量判断指定的PDF文件是否加密方法

bluesky_0

Private Sub CommandButton2_Click()
Dim PDF_NUM As Integer
II = Sheet1.Range("B62222").End(xlUp).Row
If II < 2 Then II = 2
Sheet1.Range("B2:B" & II).Clear
Sheet1.Range("D" & 1) = 0  '这个为了计算有多少PDF是加密的

For PDF_NUM = 2 To Sheet1.Range("E1") + 1'这个单元格存着有多少PDF需要判断的数值
Call check_security(PDF_NUM)
Next
MsgBox "OK"
End Sub

Sub check_security(II As Integer)
On Error GoTo NoSecurity
Dim oPDDoc As Acrobat.AcroPDDoc
Dim oPapp As Acrobat.AcroApp
Dim oJso As Object
Dim oSec As Object
Dim arrPolicies As String
'II = 2
Set oPapp = CreateObject("AcroExch.App")
Set oPDDoc = CreateObject("AcroExch.PDDoc")
        oPDDoc.Open (Sheet1.Range("F1") & "\" & Sheet1.Range("A" & II)) '里面的Sheet1.Range("F1")存的是PDF文件都在那个文件夹；地址是完全地址，比如“D:\新建文件夹”。
        Set oJso = oPDDoc.GetJSObject
        If (oJso.securityHandler) = Null Then
###'如果pdf文件没有加密就报错，说oJso.securityHandler什么不支持的属性。可是PDF文件加密就不报错了啊！！！晕啊。oJso.securityHandler出来的值居然是 "standard",不是 什么 true。。。
PDF 的官方API文档说不加密出来是 NULL值，GOOGLE也没用找到解决方法，倒是很多人问这个问题；
我为了用这个函数，我采用其中一个老外的方法 ：On Error GoTo NoSecurity
而且发现，这个不能用 for next ，do循环，循环就报错。为了可以使用oJso.securityHandler方法，我用Call调用的方法。
期待高人解决这个PDF没有加密报错的问题。
####

NoSecurity:
        arrPolicies = "NO"
        Else
            arrPolicies = "YES" 'oJso.securityHandler
            Sheet1.Range("D" & 1) = Sheet1.Range("D" & 1) + 1 '这个为了计算有多少PDF是加密的
        End If

         Sheet1.Range("B" & II) = arrPolicies
        Set oJso = Nothing
        oPDDoc.Close
Set oPDDoc = Nothing
oPapp.Exit
Set oPapp = Nothing
End Sub