ブックの変更が保存されているかを確認する(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 |
実行結果
関連記事
-
-
印刷・印刷プレビュー(PrintOut メソッド、PrintPreview メソッド)
PrintOut メソッド 印刷するには、PrintOut メソッド を使用しま …
-
-
ワークシートをアクティブにする・選択する(Activate, Select)
Activate メソッド・Select メソッド Activate メソッドは …
-
-
ユーザー設定のドキュメントプロパティ(CustomDocumentProperties プロパティ)
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
ワークシートの非表示・再表示(Visible プロパティ)
ワークシートの表示・非表示 ワークシートを非表示にしたり、非表示にしたワークシー …
-
-
アクティブプリンタを変更(ActivePrinter プロパティ)
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
分割したウィンドウの取得(Panes コレクション,Pane オブジェクト)
分割したウィンドウ 「ウィンドウ枠の固定」や「ウィンドウの分割」での、すべての領 …
-
-
ワークブックを保護・保護を解除(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
数式を表示(DisplayFormulas プロパティ)
数式を表示(DisplayFormulas プロパティ) セルに数式が入力されて …
-
-
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ)
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ) …
-
-
行列番号を含めて印刷(PageSetup.PrintHeadings プロパティ)
PageSetup.PrintHeadings プロパティ PageSetup. …
