OfficeType

VBA~ブックが保存されてから変更があるか確認しよう~Excel

VBAでブックが保存されてから変更があるか確認したい場合は、Workbook.Savedプロパティを使います。

Trueの場合は変更がなく、Falseの場合は保存されていない変更を含みます。

下のコードを実行するとBook1.xlsxというブックを最後に保存してから変更がない場合は変更はありませんとメッセージが表示され、変更がある場合は変更が保存されていませんとメッセージが表示されます。

Sub test1()

If Workbooks("Book1.xlsx").Saved = True Then

MsgBox "変更はありません"

Else

MsgBox "変更が保存されていません"

End If

End Sub