EXCEL VBA ブックを閉じる（ブック全てを保存して閉じる・変更されていれば保存・保存しないで閉じる）

EXCEL VBA ブックを閉じる（ブック全てを保存して閉じる・変更されていれば保存・保存しないで閉じる：Close・Saveｄ・Save）

EXCELブックを閉じる（Close）　４パターン

Sub Close01() 'ブックを閉じる①

    ActiveWorkbook.Close True, ActiveWorkbook.FullName
    'アクティブブックを閉じます。[ True ]の場合、変更があれは、同じファイルに保存し閉じます。変更が無ければ、そのまま閉じます。
     
 
End Sub



Sub Close02() 'ブックを閉じる②

    ActiveWorkbook.Close False, ActiveWorkbook.FullName
    'アクティブブックを閉じます。[ False ]の場合、変更があってもそのまま閉じます。
    

End Sub



Sub Close03() 'ブックを閉じる③

    ActiveWorkbook.Close
    'アクティブブックを閉じます。[ 省略 ]の場合、変更があった場合は、保存するか確認メッセージが表示されます。
    

End Sub


Sub Close04() 'ブックを閉じる④

    ActiveWorkbook.Close True, "C:\Hozon\TEST_BOOK2.xlsm"
    'アクティブブックの変更が合った場合、別のファイル名で別の場所に保存します。
    

End Sub

EXCELブックを保存　（Save）【現在のアクティブブックを保存・全てのブックを全て保存】

Sub CloseSave01() '現在のアクティブブックを保存（Save）します

    
    Application.DisplayAlerts = True '保存する際の警告メッセージを無視します。
    
    
    ActiveWorkbook.Save    '現在のアクティブブックを保存（Save）します。
    
    Application.DisplayAlerts = False  '警告メッセージの無視を解除します。
      

    Application.Quit 'EXCELを終了
    
    
End Sub

Sub CloseSave02() '全てのブックを全て保存してEXCELを終了します｡()

    Dim AllBook As Workbook
    
    Application.DisplayAlerts = True '保存する際の警告メッセージを無視します。
    
        For Each AllBook In Workbooks '開いているワークブック全てをループします。
    
             AllBook.Save    'ワークブック全てを保存（Save）します。
                
        Next AllBook
    
    Application.DisplayAlerts = False  '警告メッセージの無視を解除します。

    Application.Quit 'EXCELを終了

End Sub

EXCELブックの状態確認①【EXCELデータが変更されているか判定します。】

Sub Change_Save01() 'EXCELデータが変更されているか判定します。

    If ActiveWorkbook.Saved = True Then
            
            MsgBox "変更されています"  'True ：変更が有る場合
            
            ActiveWorkbook.Save    '現在のアクティブブックを保存（Save）します。
        Else
            MsgBox "変更ありません"    'False：変更が無い場合
                
    End If
    
End Sub

EXCELブックの状態確認②　【複数開いているEXCELデータの内容が変更されているブックを保存します。】

Sub Change_Save02() '複数開いているEXCELデータの内容が変更されているブックを保存します。

    Dim AllBook As Workbook
    Dim I As Long
    
    I = 0
    
    Application.DisplayAlerts = True '保存する際の警告メッセージを無視します。
    
        For Each AllBook In Workbooks '開いているワークブック全てをループします。
        
        
            If AllBook.Saved = True Then
                    AllBook.Save    'EXCELデータの変更されているブックを保存（Save）します.
                    I = I + 1
            End If
                    
        Next AllBook
    
    Application.DisplayAlerts = False  '警告メッセージの無視を解除します。
    
    MsgBox I & "件のEXCELブックを保存しました。"

End Sub