Есть ли способ автоматизировать шифрование файлов через Microsoft Office?

Question

Я пытался зашифровать свои офисные файлы (например, xls, xlsx, doc, docx), используя Microsoft Word и Microsoft Excel или Microsoft Powerpoint. У меня их много. Я не хочу использовать другой инструмент шифрования, я просто хочу использовать функциональность шифрования MS Office.

Проблема в том, что он очень ручной, и я должен открыть каждый из них. Есть ли способ автоматизировать этот процесс шифрования?

Спасибо за вашу помощь.

Answer 1

Эта статья о FAQ по PPT, которую я веду, показывает вам, как сделать что-то с каждым файлом 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