我一直在尝试使用 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