ブックの変更が保存されているかを確認する(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 |
実行結果
関連記事
-
-
印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt(ポイント:約 0.03528 cm) …
-
-
アクティブシートを参照する(ActiveSheet プロパティ)
アクティブなワークシートを参照する ActiveSheet プロパティを使用する …
-
-
ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …
-
-
簡易印刷(PageSetup.Draft プロパティ)
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
ブック作成時のシート数の取得・設定(SheetsInNewWorkbook プロパティ)
SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …
-
-
分割したウィンドウの取得(Panes コレクション,Pane オブジェクト)
分割したウィンドウ 「ウィンドウ枠の固定」や「ウィンドウの分割」での、すべての領 …
-
-
ファイル保存の既定の形式を取得・設定(DefaultSaveFormat プロパティ)
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
スクロール(LargeScroll メソッド、Smallscroll メソッド)
ワークシートをスクロールする ワークシートをスクロールするには、LargeScr …
-
-
ウィンドウの位置を入れ替える(ActivatePrevious メソッド、ActivateNext メソッド)
ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …
-
-
ブックを別名で保存(SaveAs メソッド)
ブックを別名で保存(SaveAs メソッド) ブックの変更を保存したり、新規ブッ …