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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷時の改ページ設定（Add,ResetAllPageBreaks）

改ページの追加と解除印刷時に改ページを指定するには、HPageBreaks コ …

: 印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

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

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

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

: 別のブックのマクロを実行（Run メソッド）

別のブックのマクロを実行別のブックのマクロを実行するには、Run メソッドを …

: セルのコメントを印刷（PageSetup.PrintComments プロパティ）

PageSetup.PrintComments プロパティ PageSetup. …

: ステータスバーにメッセージを表示（StatusBar プロパティ）

StatusBar プロパティ StatusBar プロパティで、ステータスバー …

: 印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクト

Page オブジェクトページごとに異なるヘッダーおよびフッターを設定する場合、 …

: 新しいウィンドウを開く（NewWindow メソッド）

NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …

: 簡易印刷（PageSetup.Draft プロパティ）

PageSetup.Draft プロパティ PageSetup.Draft プロ …

: スクロール範囲を限定（ScrollArea プロパティ）

ScrollArea プロパティ ScrollArea プロパティにセル範囲を …

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