有没有办法通过微软办公软件自动加密文件?

有没有办法通过微软办公软件自动加密文件?

我一直在尝试使用 Microsoft Word 和 Microsoft Excel 或 Microsoft Powerpoint 加密我的办公文件(即 xls、xlsx、doc、docx)。我有很多这样的文件。我不想使用其他加密工具,我只想使用 MS Office 的加密功能。

问题是它非常手动,我必须打开每一个。有没有办法让加密过程自动化?

感谢您的帮助。

答案1

我维护的 PPT FAQ 上的这篇文章向你展示了如何做某物对于给定文件夹中的每个 PPT 文件:

批处理:对文件夹中的每个文件执行某些操作

http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

它为每个找到的文件调用一个名为 MyMacro 的子程序。MyMacro 打开文件、执行操作、保存文件、关闭文件。我已修改子程序,在保存之前对每个文件进行密码保护。使用此版本的 MyMacro,而不是上面链接的页面上的版本。

Sub MyMacro(strMyFile As String)
' this gets called once for each file that meets the spec you enter in  ForEachPresentation
' strMyFile is set to the file name each time

    ' Probably at a minimum, you'd want to:
    Dim oPresentation As Presentation
    Set oPresentation = Presentations.Open(strMyFile)

    With oPresentation
        ' Protect it then save it back to original folder
        ' with "Protected_" prepended to the original name
        .Password = "BEGONE!PRYING!EYES" ' or whatever you like
        .SaveAs .Path & "\" & "Protected_" & .Name
    End With

    oPresentation.Close

End Sub

相关内容