Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Wie kann ich das "Abbrechen" aufzeichen ?

    Betrifft: Wie kann ich das "Abbrechen" aufzeichen ? von: Kabas Enrico
    Geschrieben am: 30.08.2003 08:44:53

    Hi !

    Möchte gerne das Beenden eines Excel-Files aufzeichnen um den Code für "Änderungen speichern ?" beim Klick auf "Abbrechen" zu ermitteln !

    Das geht leider nicht !

    Kann mir einer den Code für "Abbrechen" sagen ?

    Danke

    Enrico

      


    Betrifft: AW: Wie kann ich das "Abbrechen" aufzeichen ? von: ChrisL
    Geschrieben am: 30.08.2003 14:17:10

    Hi Enrico

    Option Explicit

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Schliessen
    Application.EnableEvents = False
    
    If ThisWorkbook.Saved = False Then
        
        Schliessen = MsgBox("Änderungen speichern?", vbYesNo)
        
        If Schliessen = vbNo Then
            
            MsgBox "Die Speicherung wurde abgebrochen."
            ThisWorkbook.Saved = True
        
            If Workbooks.Count = 1 Then
            Application.Quit
            Else
            ThisWorkbook.Close
            End If
        
        Else
        
            MsgBox "Die Mappe wird mit Speicherung geschlossen."
            ThisWorkbook.Save
            
            If Workbooks.Count = 1 Then
            Application.Quit
            Else
            ThisWorkbook.Close
            End If
        
        End If
        
    Else
    
        If Workbooks.Count = 1 Then
        Application.Quit
        Else
        ThisWorkbook.Close
        End If
    
    End If
    
    Application.EnableEvents = True
    End Sub
    



    Gruss
    Chris