Prev: Color Palette
Next: Presentation (.ppxt) not readable by email recipient
From: juwen on 4 Jun 2010 02:58
Chirag

My PowerPoint version is 2003
I want to E-mail the prespass.ppt to you.
Can you give me your valid E-mail.

-juwen

"Chirag" wrote:

> Is 123 the password to open prespass.ppt? If yes and you are still getting
> this error, can you please email me your prespass.ppt to help me analyze the
> issue? Which PowerPoint version are you using?
>
> - Chirag
>
> "king21c" <king21c(a)126.com> wrote in message
> news:uzacRLzALHA.5476(a)TK2MSFTNGP06.phx.gbl...
> > I am doing as follows:
> > 1.Place the openppt.dll in the Windows folder (C:\Windows).
> > 2.plug-in a new module
> > 3.write code in new module:
> > '---------------------------------------------
> > Sub Test()
> > Dim Pres As Presentation
> > Set Pres = OpenPresentation(Application, _
> > "d:\prespass.ppt", "123", _
> > False, False, True)
> > End Sub
> > '-----------------------------------------------
> > Error: Run-time Error'424' Object Required
> >
> > How I am going to do.
> >
> > Thank you
> >
> > "Chirag" <Chirag(a)discussions.microsoft.com>
> > дÈëÏûÏ¢ÐÂÎÅ:eFIDlWoALHA.4400(a)TK2MSFTNGP05.phx.gbl...
> >> PowerPoint does not natively provide a way to open password-protected
> >> presentations. You might want to look at my free openppt.dll that allows
> >> you to supply a password to open a password protected presentation. To
> >> use it from Excel, you would have to create an instance of PowerPoint
> >> using CreateObject() and pass the instance as the first parameter to the
> >> OpenPresentation() function.
> >>
> >> More information on openppt.dll is available at
> >> http://officeone.mvps.org/openppt/
> >>
> >> - Chirag
> >>
> >> PowerShow - View multiple PowerPoint slide shows simultaneously
> >> http://officeone.mvps.org/powershow/powershow.html
> >>
> >> "juwen" <juwen(a)discussions.microsoft.com> wrote in message
> >> news:99826EBC-7070-47A1-AAB5-4151CB24196E(a)microsoft.com...
> >>>
> >>> How to open a password protected powerpoint file by Excel macro? by the
> >>> way,the cipher is known.
> >>>
> >>> Is it possible to do this?
> >>>
> >>> Thanks in advance,
>
> .
>
From: Chirag on 4 Jun 2010 03:07
You can send me an email at the id listed at the bottom of the same web
page.

- Chirag

"juwen" <juwen(a)discussions.microsoft.com> wrote in message
news:74E46CDF-F877-4AE2-947B-179B67A1CE70(a)microsoft.com...
> Chirag
>
> My PowerPoint version is 2003
> I want to E-mail the prespass.ppt to you.
> Can you give me your valid E-mail.
>
> -juwen

From: juwen on 4 Jun 2010 03:30

Yes,I added the import declaration at the top of your module,which I forgot
to write

I am doing as follows:
1.Place the openppt.dll in the Windows folder (C:\Windows).
2.plug-in a new module
3.write code in new module:
'--------------------------------------------------------------------
Public Declare Function OpenPresentation Lib "openppt.dll" ( _
ByVal PowerPoint As Variant, _
ByVal FileName As String, _
ByVal Password As String, _
ByVal ReadOnly As Boolean, _
ByVal Untitled As Boolean, _
ByVal WithWindow As Boolean) As Variant

Sub Test()
Dim Pres As Presentation
Set Pres = OpenPresentation(Application, _
"d:\prespass.ppt", "123", _
False, False, True)
End Sub
'-----------------------------------------------------------------------
Error: Run-time Error'424' Object Required
 | 
Pages: 1
Prev: Color Palette
Next: Presentation (.ppxt) not readable by email recipient