このエクセルファイルのコピーをパスワードをかけて保存する

トップページ（目次）

343.このエクセルファイルのコピーをパスワードをかけて保存する

Sub このエクセルファイルをパスワードをかけて保存する()

    ActiveWorkbook.SaveAs "C:\コピー保存.xlsm", , "111" 'パスワードが111の場合

End Sub