VBAProject --> Microsoft Excel Objects --> SheetXX

　保存確認あり

Private Sub CommandButton7_Click()
    Dim tmp As Integer
    
    tmp = MsgBox("終了前に保存しますか？", vbYesNoCancel + vbQuestion, "終了")

    If tmp = vbYes Then
        '保存して終了
        ActiveWorkbook.Close savechanges:=True
    ElseIf tmp = vbNo Then
        '保存せずに終了
        ActiveWorkbook.Close savechanges:=False
    End If

End Sub

　保存確認あり　保存しない場合に再度確認あり
 
Private Sub CommandButton9_Click()
'終了
    Dim lngRes As Long
    Dim lngRes2 As Long
    
    lngRes = MsgBox("終了する前にブックを保存しますか？", vbYesNoCancel + vbQuestion, "終了")
    
    Select Case lngRes
    
        Case vbYes
        
            ActiveWorkbook.Close savechanges:=True
        
        Case vbNo
        
            lngRes2 = MsgBox("保存せずに終了します", vbOKCancel + vbInformation, "終了")
            
            If lngRes2 = vbCancel Then Exit Sub
            
            ActiveWorkbook.Close savechanges:=False
        
        Case Else
            
    End Select
    
End Sub

 終了と同時にアプリケーションを終了
 
VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Application.Quit
    
End Sub


　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ