ブックの変更が保存されているかを確認する(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 |
実行結果
関連記事
-
-
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)
並べて比較(CompareSideBySideWith メソッド) Compar …
-
-
再計算(Calculation, EnableCalculation, Calculate)
ワークブックやシートの再計算 通常、Excel では、自動的に再計算が行われる設 …
-
-
印刷設定(ヘッダーに文字列を指定)LeftHeader,CenterHeader,RightHeader
PageSetup.LeftHeader プロパティ PageSetup.Lef …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
ブック・シートの名前を取得・設定(Name プロパティ)
ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …
-
-
印刷設定(フッターに文字列を指定)LeftFooter,CenterFooter,RightFooter
PageSetup.LeftFooter プロパティ PageSetup.Lef …
-
-
枠線の表示・非表示の設定(DisplayGridlines プロパティ)
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
-
-
ブックが共有モードか確認する(MultiUserEditing プロパティ)
ブックが共有モードか確認する(MultiUserEditing プロパティ) 共 …
-
-
印刷時、シート内のエラーをどう扱うかを設定(PrintErrors プロパティ)
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
PDF または XPS 形式で出力(ExportAsFixedFormat メソッド)
ExportAsFixedFormat メソッド ブックやシートの内容を PDF …
