VBAにて名前をつけて保存とパスワードオプション

EXCEL2019にて、名前を付けて保存のダイアログを表示して、読み取りパスワードを設定したいのですが、ツールの中に”全般オプション”が無いのですが、出す方法をご教授いただけないでしょうか
下記がVBAです

Sub P付保存()
Dim FileName As Variant
FileName = Application.GetSaveAsFilename( _
InitialFileName:="ファイル名.xlsx", _
FileFilter:="Excelファイル,*.xlsx,Excelマクロブック,*.xlsm", _
FilterIndex:=2)
If FileName = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs FileName
End Sub

ファイル名とパスワードは都度変わるので、入力のダイアログを出したいです。

よろしくおねがいします

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2021/10/23 09:28

EXCEL2019で出来るかどうかわからないのですが、これを試してみて下さい。

Application.Dialogs(xlDialogSaveWorkbook).Show

この回答へのお礼

完璧です！！
このダイアログですありがとうございました。

お礼日時：2021/10/23 22:14

No.2 回答者： ずんだしらたま 回答日時： 2021/10/20 07:39

やった事はありませんが、これですかね？

「SaveAs」メソッドの引数に「Password」を設定するそうです。

読み取りパスワードを付けて保存
https://www.officepro.jp/excelvba/book_new/index …

No.1 回答者： mygoonickname 回答日時： 2021/10/20 07:39

おはようございます。

下記が参考になるでしょうか？

WordやExcelにパスワードを設定する方法
https://www.pc-koubou.jp/magazine/39949

InputBox関数
https://excel-ubara.com/excelvba1/EXCELVBA324.html

ブックに名前を付けて保存
https://excel-ubara.com/excelvba1/EXCELVBA364.html
（WriteResPassword ファイルの書き込みパスワードをを指定します。）