检查文件是否受密码保护 [英] Check a file is passwordprotected or not

问题描述

嗨


我有一个包含格式文件的文件夹（DOC，DOCX，GIF，JPG，JPEG，PDF，PNG，PPT，RTF，TIF，TIFF，TXT， XLS，XLSX）。

这些文件可能受密码保护也可能没有密码保护。



我需要知道每个文件是否都是密码受保护与否？



提前致谢

Hi
I have a folder which contains files of format(DOC,DOCX,GIF,JPG,JPEG,PDF,PNG,PPT,RTF,TIF,TIFF,TXT,XLS,XLSX).
These files may or may not be password protected.

I need to know whether each of the files are password protected or not?

Thanks in advance

推荐答案

Sub MyMacro()

Dim oDoc As Document

On Error Resume Next

Set oDoc = Documents.Open(FileName:="C:\MyFile.doc", PasswordDocument:=password)
Select Case Err.Number
    Case 0
     Debug.Print "File was processed."

    Case 5408
     'Debug.Print "Wrong password!"

    Case Else
     MsgBox Err.Number & ":" & Err.Description
End Select

从这里 [ ^ ]

这篇关于检查文件是否受密码保护的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！