Dosyaların şifrelenmesini microsoft office aracılığıyla otomatikleştirmenin bir yolu var mı?

Office dosyalarımı (yani, xls, xlsx, doc, docx) Microsoft Word ve Microsoft Excel veya Microsoft Powerpoint kullanarak şifrelemeye çalışıyorum. Onlardan çok var. Başka bir şifreleme aracı kullanmak istemiyorum, sadece MS Office şifreleme işlevini kullanmak istiyorum.

Sorun şu ki, bu çok manuel ve her birini açmam gerekiyor. Bu şifreleme işlemini otomatikleştirmek için herhangi bir yolu var mı?

Yardımınız için teşekkürler.

Sağladığım PPT SSS’deki bu yazı size , belirli bir klasördeki her PPT dosyasına bir şeyi nasıl yapacağınızı gösterir :

Toplu iş: Bir klasördeki her dosyaya bir şeyler yapın

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

Bulduğu her dosya için MyMacro adlı bir alt yordamı çağırır. MyMacro dosyayı açar, bir şeyler yapar, dosyayı kaydeder, dosyayı kapatır. Şifreyi değiştirmeden önce her dosyayı korumak için alt şifresini değiştirdim. Yukarıdaki sayfaya bağlı sayfa yerine MyMacro'nun bu sürümünü kullanın.

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