VBAでパワーポイントを読み取り専用で開けない

Question

パワーポイントのVBAから別のパワーポイントファイルを、読み取り専用で開きたいのですが
ReadOnly=Trueに設定しても、
書き込みパスワード付きファイルの場合、パスワード入力か読み取り専用で開くかを選択するダイアログが表示されてしまい、
書き込みパスワード無しファイルの場合、書き込みできる状態でファイルを開いてしまいます。

読み取り専用で開いてくれないのですが、
そもそもこのパラメータはこういう使い方ではないのでしょうか？

1. できれば書き込みパスワード付きの状態で、選択ダイアログを出さずに読み取り専用で開きたい
2. 1が無理なら、書き込みパスワード無しでもいいので、読み取り専用で開きたい

上記を満たす方法はありますでしょうか？
宜しくお願い致します。

Public Sub ReadOnlyOpen()
    Dim ppt As PowerPoint.Presentation
    Set ppt = Presentations.Open("ファイルパス", ReadOnly:=msoTrue)

    'こっちでも同じ
    'Presentations.Open FileName:="ファイルパス", ReadOnly:=msoTrue
End Sub

参考にしたドキュメント
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.presentations.open

###追記
jinojiさんから頂いた回答の結果と、そのNG理由を追記致します。

Set pptRo = Presentations.Open("ファイルパス" & "::::" & "パスワード", ReadOnly:=msoTrue)

上記で開くと、たしかに読み取り専用と表示され、上書き保存も出来ないのですが
この場合だと、選択ダイアログで「読み取り専用で開く」で開いた時と異なり
スライド内にテキストやオブジェクトの追加、削除等が出来てしまいます。

そしてその編集した状態で、上書きはできませんが、別名保存は出来てしまいます。
厳密に読み取り専用で開くとは異なる表示でしたので、解決とはいきませんでした…

どうも読み取り専用は2パターンある様ですね。
・パスワードかかっているのを触れないように見るだけで開くモード
・誰かが先に開いているファイルを上書きしないように開くモード

私がやりたい読み取り専用は前者の方なのですが、
どうもここでいうReadOnlyというのは、後者の方のことを指しているような気がします。

Answer 1

コード内にパスワードを書いていいのであれば、

Set ppt = Presentations.Open("ファイルパス" & "::::pswd1234", ReadOnly:=msoTrue)

Comments

[yy_tn]

回答ありがとうございます。
そちらもやってみましたが、思っているような状態ではありませんでした。
質問にその結果も追記致します。

[jinoji]

事情はわかりました。
対象ファイルを、「プレゼンテーションの保護」で「常に読み取り専用で開く」に設定したうえで、
Set pptRo = Presentations.Open("ファイルパス" & "::::" & "パスワード", ReadOnly:=msoFalse)
でどうでしょうか。

[yy_tn]

ありがとうございます。
提示頂いたソースでやってみましたが、保護された状態ではあるのですが、スライド上部に黄色い帯で表示されている編集を押すと通常通り編集できてしまいますね…。
編集事故をある程度防ぐという意味では有効だと思うのですが、
編集も保存もさせたくないというのが目的ですので、やはりこの方法でも。。
※最終目的を質問に書いておらず申し訳ありません