怎么打开带密码的PPT文件？

我用下列代码行不通：

        Dim XlApp As New PowerPoint.Application

        

        Dim aa As Presentation

       Set aa = XlApp.Presentations.Open("E:\1.ppt")

--------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 我不想让它显示，如何实现？

引用 2 楼 asftrhgjhkjlkttttttt 的回复:

好象没有直接的方法,绕一下:
打开后用sendkeys发送密码,或查密码框的句柄,添值

  Dim oPPTApp As Object, oPPTPres As Object
  Set oPPTApp = CreateObject("PowerPoint.Application")
  Set oPPTPres = oPPTApp.Presentations.Open("D:\1.p……

--------------------编程问答-------------------- re
re --------------------编程问答-------------------- 我不想让它显示，如何实现？ --------------------编程问答-------------------- 查密码框的句柄容易,怎么添值?

引用 2 楼 asftrhgjhkjlkttttttt 的回复:

好象没有直接的方法,绕一下:
打开后用sendkeys发送密码,或查密码框的句柄,添值

  Dim oPPTApp As Object, oPPTPres As Object
  Set oPPTApp = CreateObject("PowerPoint.Application")
  Set oPPTPres = oPPTApp.Presentations.Open("D:\1.p……

--------------------编程问答-------------------- 查密码框的句柄容易,怎么添值?
--------------------编程问答-------------------- --------------------编程问答-------------------- http://social.msdn.microsoft.com/Forums/en/innovateonoffice/thread/28aff4b7-06f3-46e0-a7d7-495e85bf6bb2

貌似木有办法.

只有模拟按键了. --------------------编程问答--------------------

引用 2 楼 asftrhgjhkjlkttttttt 的回复:

好象没有直接的方法,绕一下:
打开后用sendkeys发送密码,或查密码框的句柄,添值

  

VB code
  Dim oPPTApp As Object, oPPTPres As Object
    Set oPPTApp = CreateObject("PowerPoint.Application")
    Set oPPTPres = oPPTApp.Present……

帮顶... --------------------编程问答--------------------

引用 3 楼 zx055z 的回复:

我不想让它显示，如何实现？


引用 2 楼 asftrhgjhkjlkttttttt 的回复:
好象没有直接的方法,绕一下:
打开后用sendkeys发送密码,或查密码框的句柄,添值

Dim oPPTApp As Object, oPPTPres As Object
Set oPPTApp = CreateObject("PowerPoint.Application")
Se……

oPPTApp.Visible = False --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 不对啊，就连手工输入密码也不能打开文档，会出错，显示“Open方法在……中作用失败”，楼上的有没有遇上这种情况？ --------------------编程问答-------------------- 当然会在open时出错. --------------------编程问答-------------------- 学习学习

补充：VB ,  基础类