ブックの変更が保存されているかを確認する(Saved プロパティ)
ブックの変更が保存されているかを確認する(Saved プロパティ)
Saved プロパティ は、ブックの変更が保存されたかどうかを確認することができます。ブックを変更した後に保存した場合は、True を返します。
<取得>
object.Saved
<設定>
object.Saved = boolean
引数・戻り値
- object ・・・ 対象となる Workbook オブジェクトを指定します。
- boolean ・・・ True を指定するとブックは変更されていないことになります。False を指定するとブックは変更されたことになります。
ブックを変更後、保存しないで終了する場合、Saved プロパティ に、True を指定してから、Close メソッド を実行すると、保存するかどうかを確認するダイアログボックスを表示しません。
(例)ブック変更後、保存せず、確認ダイアログボックスも表示しないで終了
ActiveSheet.Range(“A1”).Value = 200
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
- object ・・・ 対象となる Workbook オブジェクトを指定します。
- boolean ・・・ True を指定するとブックは変更されていないことになります。False を指定するとブックは変更されたことになります。
ブックを変更後、保存しないで終了する場合、Saved プロパティ に、True を指定してから、Close メソッド を実行すると、保存するかどうかを確認するダイアログボックスを表示しません。
(例)ブック変更後、保存せず、確認ダイアログボックスも表示しないで終了
ActiveSheet.Range(“A1”).Value = 200
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Saved プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub Sample_Saved() Dim msg As String 'ブックを変更して保存 ActiveSheet.Range("A1").Value = 200 ActiveWorkbook.Save 'ブックの変更を保存したかどうかを確認 If ActiveWorkbook.Saved = True Then msg = "変更を保存しました。" Else msg = "変更は保存されていません。" End If MsgBox msg End Sub |
実行結果
関連記事
-
-
ユーザー設定のドキュメントプロパティ(CustomDocumentProperties プロパティ)
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
行列番号を含めて印刷(PageSetup.PrintHeadings プロパティ)
PageSetup.PrintHeadings プロパティ PageSetup. …
-
-
印刷の先頭のページ番号を設定(PageSetup.FirstPageNumber プロパティ)
PageSetup.FirstPageNumber プロパティ PageSetu …
-
-
イベントの発生・無効をコントロール(EnableEvents プロパティ)
EnableEvents プロパティ EnableEvents プロパティに T …
-
-
枠線の表示・非表示の設定(DisplayGridlines プロパティ)
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
-
-
印刷時、シート内のエラーをどう扱うかを設定(PrintErrors プロパティ)
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
ワークシートの非表示・再表示(Visible プロパティ)
ワークシートの表示・非表示 ワークシートを非表示にしたり、非表示にしたワークシー …
-
-
ワークブックを保護・保護を解除(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
ブックを開く(Open メソッド)
ブックを開く(Open メソッド) ブックを開くには、Workbooks コレク …
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …