Application.DisplayAlerts プロパティをFalseにすると、マクロの実行中に警告やメッセージが表示されなくなります
Application.DisplayAlerts プロパティは、FalseとTrueを必ず対で使います。
「Application.DisplayAlerts =
False」を使用した場合は、そのマクロを終える前に「Application.DisplayAlerts = True」を記述します。
@[開発]タブの[Visual Basic]ボタンで、マクロの編集画面を表示します。
Excelの2003や2002、2000では、[ツール]→[マクロ]→[Visual
Basic Editor]で、個人用マクロブックの編集を行えます

A個人用マクロブック「PERSONAL.XLSB」の末尾に追加されている標準モジュールをダブルクリックで開きます。
マクロ記録によるマクロは、末尾の標準モジュールに記録されています。それを開いて、マクロの編集を行います。
個人用マクロブックは、Excelの編集画面では確認できませんが、Excelの起動と同時に開かれ、Excelの終了とともに閉じられます。Excelが起動している間は常に開かれているので、Visual
Basic Editorでいつでも編集できます。

B記録したマクロの先頭に「Application.DisplayAlerts =
False」を、末尾に「Application.DisplayAlerts = True」の行を追加します。
Sub MultiSave()
'
' MultiSave Macro
' 異なる2つのフォルダに保存
'
'
Application.DisplayAlerts = False
ActiveWorkbook.Save
ChDir "J:\"
ActiveWorkbook.SaveAs Filename:="J:\学年別授業時間数.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
これで、同名のブックが保存先にあっても、上書き確認のメッセージを表示することなく、無条件に上書き保存されるようになります。
