Sub Sample()
If ActiveWorkbook.Saved = False Then
MsgBox "変更されてます"
Else
MsgBox "変更されていません"
End If
End SubSEO対策
Savedプロパティのサンプルコード
下記のコードは保存されてるBookから内容に変更があった場合に上書き保存するコードです。
Sub Sample()
Dim ans As String
If ActiveWorkbook.Saved = False Then 'Bookに変更があった場合
ans = MsgBox("Bookの内容が変更されています。上書き保存しますか?", vbYesNo)
If ans = vbYes Then '【はい】を押した場合
ActiveWorkbook.Save
MsgBox "保存しました"
End If
Else 'Bookに変更がなかった場合
MsgBox "Bookの内容に変更はありません。"
End If
End Sub
コメントを残す