如何用vba将ppt另存为需要密码打开的只读ppt？

2020年11月22日 作者：水星Excel
3,322 次浏览 暂无评论

PPT的Presentation对象的Password属性可以设置打开密码，WritePassword属性可以设置只读密码，SaveCopyAs方法可以将PPT另存为其它的文件。

通过上述知识，可以使用如下的代码将PPT另存为需要密码打开的只读PPT。

Sub QQ1722187970()
    Dim oP As Presentation
    Set oP = PowerPoint.ActivePresentation
    oP.Password = "123"
    oP.WritePassword = "1234"
    oP.SaveCopyAs2 oP.Path & "\123.pptm", , , msoFalse
End Sub

其它相关文章推荐：

分类 :  PPT , PPT VBA , VBA
标签 :  ,
       

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 

发表评论