ブックの変更が保存されているかを確認する(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 |
実行結果
関連記事
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
-
-
スクロール範囲を限定(ScrollArea プロパティ)
ScrollArea プロパティ ScrollArea プロパティ にセル範囲を …
-
-
ブックのプロパティ(BuiltinDocumentProperties プロパティ)
BuiltinDocumentProperties プロパティ ブックのプロパテ …
-
-
印刷設定(先頭ページのヘッダー・フッターを設定)DifferentFirstPageHeaderFooter, FirstPage
先頭ページに別のヘッダーおよびフッターを設定 先頭ページのヘッダーおよびフッター …
-
-
アクティブシートを参照する(ActiveSheet プロパティ)
アクティブなワークシートを参照する ActiveSheet プロパティを使用する …
-
-
印刷設定(ヘッダーに画像を指定)LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture
ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …
-
-
ブックを保存する(Save メソッド)
ブックを保存する(Save メソッド) 既存のブックを上書き保存するには、Sav …
-
-
ブックのパスを取得(FullName プロパティ,Path プロパティ)
FullName プロパティ・Path プロパティ ブックのパス(保存場所)を調 …
-
-
ブックの表示・非表示(Visible プロパティ)
ブック表示・非表示(Visible プロパティ) ブック(ウィンドウ)が表示され …
-
-
印刷のタイトル行、タイトル列を設定(PrintTitleRows,PrintTitleColumns)
PageSetup.PrintTitleRows プロパティ PageSetup …
