Code VBA pour déprotéger une présentation Powerpoint ouverte, puis la protéger à nouveau avant de l'enregistrer?

Question

J'ai protégé une présentation de point de puissance de l'utilisateur en la modifiant. Cependant, je ne peux pas utiliser VBA pour le dé-protéger.

J'ai essayé d'utiliser ce code ci-dessous, mais cela ne fonctionne pas. Cela ne fonctionne que pour une présentation non protégée. Mais vous devrez supprimer le pw du code.

set p = pa.presentations.open(pth + pptname, pw) 

Answer 1

En supposant que vous connaissez le mot de passe, vous pouvez ouvrir le fichier avec quelque chose comme:

Presentations.Open("c:\temp\protected_presentation.pptx::password::") 

et définissez le mot de passe sur une présentation par exemple:

ActivePresentation.Password = "Hide_me" 

[édition pour ajouter un exemple de travail complet et testé qui suppose une présentation C: \ temp \ testtest.pptx qui a été enregistrée avec le mot de passe opensesame]

Sub TestTest() 

    Dim oPPTApp As Object 
    Dim oPPTPres As Object 

    Set oPPTApp = CreateObject("PowerPoint.Application") 

    If Not oPPTApp Is Nothing Then 
     Set oPPTPres = oPPTApp.presentations.Open("C:\temp\test.pptx::opensesame::") 
     MsgBox oPPTPres.slides(1).Shapes(1).TextFrame.TextRange.Text 
     oPPTPres.Close 
     oPPTApp.Quit 
    End If 
End Sub