Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックの変更が保存されているかを確認する（Saved プロパティ）

2015/12/01

ブックの変更が保存されているかを確認する（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

Saved プロパティ使用例

サンプルVBAソース

　
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

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

　

実行結果

- ブック・シートの操作 Saved プロパティ, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）

並べて比較（CompareSideBySideWith メソッド） Compar …

: 印刷設定（ヘッダーに画像を指定）LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture

ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …

: 印刷設定（ヘッダー／フッター）書式コード・VBAコード

印刷設定（ヘッダー／フッター）書式コード・VBAコードヘッダーおよびフッター（ …

: ワークシートの数を数える（Count プロパティ）

Count プロパティ指定したWorksheets コレクションやSheets …

: ブックのパスを取得（FullName プロパティ,Path プロパティ）

FullName プロパティ・Path プロパティブックのパス（保存場所）を調 …

: ブックのコピーを保存（SaveCopyAs メソッド）

SaveCopyAs メソッド SaveCopyAs メソッドは、現在開いてい …

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

: ワークシートを参照する（Worksheets プロパティ）

Worksheets プロパティ Worksheets プロパティは、Works …

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

PREV: ブックのファイル形式を調べる（FileFormat プロパティ）
NEXT: ブックのパスを取得（FullName プロパティ,Path プロパティ）