Sub エクセルファイルにパスワードを設定して保存()

    対象ファイル = "C:\test\test.xlsm"
    
    'エクセルファイルを開く
    Workbooks.Open 対象ファイル
    
    '上書き確認メッセージを非表示にする
    Application.DisplayAlerts = False
    
    'パスワードを設定して保存する
    ActiveWorkbook.SaveAs Filename:=対象ファイル, Password:="password"
    
    '上書き確認メッセージの非表示を解除する
    Application.DisplayAlerts = True
    
    'エクセルを閉じる
    ActiveWorkbook.Close

End Sub