Existe alguma maneira de automatizar a criptografia de arquivos através do microsoft office?

Question

Estou tentando criptografar meus arquivos do Office (por exemplo, xls, xlsx, doc, docx) usando o Microsoft Word, o Microsoft Excel ou o Microsoft Powerpoint. Eu tenho muitos deles. Eu não quero usar outra ferramenta de criptografia, eu só quero usar a funcionalidade de criptografia do MS Office.

O problema é que é muito manual e eu tenho que abrir cada um deles. Existe alguma maneira de automatizar esse processo de criptografia?

Obrigado pela sua ajuda.

    

Answer 1

Este artigo sobre o FAQ do PPT que eu mantenho mostra a você como fazer algo para cada arquivo PPT em uma determinada pasta:

Lote: faça algo para cada arquivo em uma pasta

link

Ele chama uma sub-rotina chamada MyMacro para cada arquivo que encontrar. MyMacro abre o arquivo, faz coisas, salva o arquivo, fecha o arquivo. Eu modifiquei o sub para proteger com senha cada arquivo antes de salvar. Use esta versão do MyMacro em vez da que está na página acima.

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