Prev: spin objects on the x-axis?
Next: Zoom out and leave content in one corner of the slide in ppt?
From: Chirag on 3 Jun 2010 14:13
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: Matti Vuori on 3 Jun 2010 15:20
"king21c" <king21c(a)126.com> wrote in
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.

You need to add the import declaration at the top of your module, above
your Sub:

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




First  |  Prev  | 
Pages: 1 2
Prev: spin objects on the x-axis?
Next: Zoom out and leave content in one corner of the slide in ppt?