ページコンテンツ
VBAでBookが変更されたかを取得する方法
takaです!今回はVBAでBookが変更されたかを取得する方法をご紹介します(^^)
変更があった場合は保存、変更がなかった場合は保存しない。などの指定ができる用になるのでそのような場面に出くわしたときに使用すると便利です(^^♪
まああまりないかもしれませんが(。-∀-)
Bookが変更されたかを取得する方法
Bookが変更されたかどうかを取得するには【workbookオブジェクト】の【savedプロパティ】を使用します。
savedプロパティは変更されている場合は【False】が返され。変更されていなかった場合は【true】が返されます。
savedプロパティの例
1 2 3 4 5 6 7 8 9 | Sub Sample() If ActiveWorkbook.Saved = False Then MsgBox "変更されてます" Else MsgBox "変更されていません" End If End Sub |
Bookに変更があった場合だけ上書き保存するコード
下記のコードは保存されてるBookから内容に変更があった場合に上書き保存するコードです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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 |
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す