以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  PPT文件代码设置了密码保护，怎么实现代码取消密码保护呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159982)

--  作者：李孝春 --  发布时间：2021/1/16 11:19:00 --  PPT文件代码设置了密码保护，怎么实现代码取消密码保护呢？ 如下代码已经能够实现设置密码的预期效果 Dim app As new Microsoft.Office.Interop.PowerPoint.Application Dim ppt = app.Presentations.Open("C:\\Users\\Administrator\\Desktop\\瓮检普法模板.pptx",0,0,0) ppt.Password = "123" ppt.saved = True App.Visible = True app.quit 那么如果该文件预设了密码  怎么在代码中直接写入密码  然后不需要再次输入密码即可打开该PPT呢？

--  作者：有点蓝 --  发布时间：2021/1/16 14:41:00 --   文件路径后面加上::用于输入密码 Dim app As new Microsoft.Office.Interop.PowerPoint.Application Dim ppt = app.Presentations.Open2007("D:\\问题\\123.pptx::123",0,0,0) ppt.Password = Nothing ppt.save app.quit