Remove or Change Password for Multiple PowerPoint Presentations (VBA) 

Introduction

This VBA sample illustrates how to remove or change password for multiple PowerPoint presentations. 

Scenarios

Some users have set password to protect their PowerPoint presentations, and after some time period, the password is no longer required, it turn out to be a huge job to remove password from huge amount of presentations.

Script

Import the two files (mdlPassword.bas & ufrmMain.frm).

Step1. Press Alt+F11 to open the VBE in PowerPoint.

Step2. Select these two files and drag them to the Project Explorer (Press Ctrl+R if you cannot see it) or via File >> Import File... (Ctrl+M).

Run the Main macro to start user form.

Step3. Go back to the presentation.

Step4. Press the Run button via Alt+F8.

Step5. Select "Main" in the names list, and then click the Run button. We will see the following window:

Here are some code snippets for your references. To get the complete script sample, please click the "Download" button at the beginning of the page.

' ########################################################
' Set the presentation password and the document password.
' ########################################################
Private Sub SetPassword(ByRef WhichPresentation As Presentation, _
    ByVal NewPasswordForPresentation As String, _
    ByVal NewPasswordForDocument As String)
    
    With WhichPresentation
        .Password = NewPasswordForPresentation
        .WritePassword = NewPasswordForDocument
        .Save
        .Close
    End With
End Sub

' ######################################################## 
' Set the presentation password and the document password. 
' ######################################################## 
Private Sub SetPassword(ByRef WhichPresentation As Presentation, _ 
    ByVal NewPasswordForPresentation As String, _ 
    ByVal NewPasswordForDocument As String) 
     
    With WhichPresentation 
        .Password = NewPasswordForPresentation 
        .WritePassword = NewPasswordForDocument 
        .Save 
        .Close 
    End With 
End Sub

Note

1. Please make sure that macros are enabled in PowerPoint.

For PowerPoint 2010:
File >> Options >> Trust Center >> Trust Center Settings... >> Macro Settings >> Enable all macros >> OK >> OK >> Restart PowerPoint 

2. Instructions for "password to open" and "password to modify".

Password to open means: file encryption settings for specific document.
Password to modify means: file sharing settings for specific document.