如何用VBA自动为一文件夹内的全部Word文档加密？

sayeah51

如何用VBA一文件夹内的Word文档加一固定的密码？

我已经想到为已经打开的全部Word文档加密，但想不到如何自动打开文件夹内的全部Word文档。

Sub AddPassword() For Each aDoc In Documents aDoc.Protect Type:=wdAllowOnlyFormFields, Password:="Password" Next aDoc

End Sub

守柔

请参：

Sub Example() Dim Adoc As String, SetPsDoc As Document On Error Resume Next ChDrive "C" ChDir "C:\Documents and Settings\ZhouJianPing\My Documents\Temp" Adoc = Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" ' MsgBox Adoc Set SetPsDoc = Documents.Open(Adoc) SetPsDoc.Protect Type:=wdAllowOnlyFormFields, Password:="Password" SetPsDoc.Close True Adoc = Dir() Loop Application.ScreenUpdating = True End Sub 以前我们多用CreateObject("Scripting.FileSystemObject")来进行取得指定文件夹内的文件集合进行循环遍历，今天换一个方法，看上去更简捷一些。

sayeah51

对,真的很简单,谢谢.以后有什么就靠您的帮忙了.

七叶一枝梅

现在有很多机子为防止感染木马，已禁用了FSO对象，（禁用方法直接在“运行”中输入“regsvr32 scrrun.dll /u ”确定即可），造成了我们在文件夹中循环的不便，版主上面给出的方法的确值得一学。

tangqingfu

QUOTE:

以下是引用守柔在2004-11-12 5:44:00的发言：

请参：

Sub Example()
    Dim Adoc As String, SetPsDoc As Document
    On Error Resume Next
    ChDrive "C"
    ChDir "C:\Documents and Settings\ZhouJianPing\My Documents\Temp"
    Adoc = Dir("*.doc")
    Application.ScreenUpdating = False
    Do While Adoc <> ""
'        MsgBox Adoc
        Set SetPsDoc = Documents.Open(Adoc)
        SetPsDoc.Protect Type:=wdAllowOnlyFormFields, Password:="Password"
        SetPsDoc.Close True
        Adoc = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub
以前我们多用CreateObject("Scripting.FileSystemObject")来进行取得指定文件夹内的文件集合进行循环遍历，今天换一个方法，看上去更简捷一些。
    

收藏学习！谢谢守版！

ww0000

tangqingfu 发表于 2008-5-19 13:34
QUOTE:以下是引用守柔在2004-11-12 5:44:00的发言：请参：Sub Example()&nbsp;&nbsp;&nbsp;&nbsp;Dim Adoc  ...

好象不能达到加密的要求呀!