如何批量将多个word文档设置相同密码

cuanju

1. Sub word多个文档批量添加打开密码尚待完善()
   
2.     Rem 需要选择需要添加密码的多个文件
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     With Application.FileDialog(msoFileDialogFilePicker)
   
6.         .Filters.Clear
   
7.         .Filters.Add "Word Files", "*.do*"
   
8.         If .Show = -1 Then
   
9.             For Each oItem In .SelectedItems
   
10.                 Documents.Open (oItem)
    
11.                 With ActiveDocument
    
12.                     '此处放置代码内容
    
13.                     'i = i + 1
    
14.                     .SaveAs FileName:=ActiveDocument.FullName, Password:="123" '打开密码
    
15.                     '.Protect Type:=wdAllowOnlyFormFields, Password:="123" '文档保护限制编辑，但不是打开密码
    
16.                     .Close True
    
17.                     'MsgBox ActiveDocument.FullName
    
18.                     '  .Save
    
19.                     '.Close
    
20.                 End With
    
21.             Next '继续下一个文件
    
22.         Else
    
23.             Exit Sub
    
24.         End If
    
25.     End With
    
26.     Application.DisplayAlerts = True
    
27.     Application.ScreenUpdating = True
    
28.     'MsgBox i
    
29.     MsgBox "操作完毕！"
    
30. End Sub
    

复制代码

我写代码试了一下，但此代码失效，不能顺利给多个word文档添加“123”的密码，请指教^_^

zldccmx

1. Sub zldccmx()
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     Set f = fso.GetFolder(ThisDocument.Path)
   
5.     pt = ThisDocument.Path & ""
   
6.     For Each E In f.Files
   
7.         If Left(E.Name, 1) = "~" Or E.Name = ThisDocument.Name Or Not E.Name Like "*.doc*" Then
   
8.         Else
   
9.             With Documents.Open(pt & E.Name)
   
10.                 .ReadOnlyRecommended = False
    
11.                 .SaveFormsData = False
    
12.                 .SaveSubsetFonts = False
    
13.                 .WritePassword = "123" '统一密码为123
    
14.                 .Close True
    
15.             End With
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码