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

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