[求助]批量设置、解除所有选定文档的“打开文件时的密码”

tangqingfu

两段代码均测试成功！谢谢守版的一再帮助。

如果有可时间的话，麻烦守版注释一下楼上的代码，方便我们学习！

wbxfq

我也是要这种效果.
谢谢守版主和tangqingfu

好好学习excel

学习了。留个脚印

qinhuan66

好好学习天天向上

austgongml

楼上所有发布的宏程序均不能实现解密功能。思路不对。我提供一个可以对文档实现批量加密和解密的代码
Sub 文档批量加密和解密()
    Dim myDialog As FileDialog
    Dim oFile As Variant
    Dim oDoc As Document
    Dim myResult As VbMsgBoxResult
    Dim myPassWord As String
    On Error Resume Next
    myPassWord = "你的密码"
    '定义一个文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show <> -1 Then Exit Sub
        myResult = MsgBox("选择“是”将进行对所选文件加密,选择“否”将解除文档加密!", vbYesNo)
        
        For Each oFile In .SelectedItems    '在所有选取项目中循环
          If myResult = vbYes Then
            Set oDoc = Documents.Open(FileName:=oFile, Visible:=False)
            With oDoc
                     .Password = myPassWord
                     .WritePassword = myPassWord
                  .Close True
            End With
          Else
            Set oDoc = Documents.Open(FileName:=oFile, PasswordDocument:=myPassWord, WritePasswordDocument:=myPassWord, Visible:=False)
            With oDoc
                     .Password = ""
                     .WritePassword = ""
                  .Close True
            End With
          End If
        Next
    End With
End Sub

上面的程序可以拆成两个程序，分别为加密和解密的程序。使用时，将其中的mypsssword替换成自己的密码即可。还可以利用inputbox函数实现动态密码的加密与解密。

scsaub

守柔 发表于 2008-5-30 18:04
QUOTE:以下是引用tangqingfu在2008-5-27 20:09:17的发言：又来麻烦守版：对于上述指定文件夹下指所有选定文 ...

太感谢了，帮大忙了

ww0000

我怎么都不成功了????

ww0000

守柔 发表于 2008-5-30 18:04
QUOTE:以下是引用tangqingfu在2008-5-27 20:09:17的发言：又来麻烦守版：对于上述指定文件夹下指所有选定文 ...

老师，能否历遍子目录呢？

huangzhijie

多谢老师代码，借鉴了一下，附上附件大家共享

huangzhijie

改了下，楼上word会报错