Check whether PowerPoint or Word file is Password Protected

azizrasul

Well-known Member
Joined
Jul 7, 2003
Messages
1,271
I am trying to figure out what the vba code would be to determine whether a PPTX or DOCX files are password protected. The following (for PPTX file) isn't working but it's what I have so far. I hope that if I get error 1004 then it's not password protected but if it reaches the end then it is.
It doesn't like the Password:= bit. However similar code for Excel files work.
I don't want the password dialog box to appear, I just want a value of True or False to be returned.

VBA Code:
    Dim objPowerPoint As Object

    On Error GoTo ErrorHandler

    Set objPowerPoint = CreateObject("PowerPoint.Application")

    With objPowerPoint
        .Presentations.Open FileName:=strPowerPointFile, Password:="", ReadOnly:=msoFalse, untitled:=msoTrue, withwindow:=msoFalse
        .Quit
    End With

    Set objPowerPoint = Nothing

    PowerPointFileProtection1 = False

ErrorHandler:
If Err.Number = 1004 Then
       PowerPointFileProtection1 = True
End If
 
Last edited:

Excel Facts

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).

Watch MrExcel Video

Forum statistics

Threads
1,130,169
Messages
5,640,550
Members
417,151
Latest member
ChickenTenderer

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top