Microsoft Excel

Herbers Excel/VBA-Archiv

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

Ohne Nachfrage speichern und schließen

Betrifft: Ohne Nachfrage speichern und schließen von: hans
Geschrieben am: 06.10.2020 15:13:28

Hallo,

habe folgenden Code in meiner Datei:

Private Sub Workbook_Open()
    If MsgBox("Dokument bearbeiten?", vbYesNo + vbDefaultButton1) = vbYes Then
        
        ThisWorkbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung " & Format$(Date, " _
yyyy.mm.dd") & ".xls"
        
    End If
End Sub
Private Sub Workbook_BeforeClose(cancel As Boolean)
    If MsgBox("?nderungen in Original speichern?", vbYesNo + vbDefaultButton1) = vbYes Then
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        ThisWorkbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung" & ".xlsm"
        Application.DisplayAlerts = True
        Else
        Application.Quit
    End If
End Sub
Nun passiert es manchmal (komischerweise nicht immer) das er mich beim Schließen trotzdem fragt ob gespeichert werden soll. Wie kann ich das Vermeiden?

Danke schonmal für die Hilfe

Gruß Hans

Betrifft: AW: Ohne Nachfrage speichern und schließen
von: ChrisL
Geschrieben am: 06.10.2020 15:26:27

Hi Hans

Ersetze mal
Application.Quit
durch
ThisWorkbook.Saved = True

cu
Chris

Betrifft: AW: Ohne Nachfrage speichern und schließen
von: Nepumuk
Geschrieben am: 06.10.2020 15:27:22

Hallo Hans,

teste mal:

Option Explicit

Private Sub Workbook_Open()
    If MsgBox("Dokument bearbeiten?", vbYesNo + vbDefaultButton1) = vbYes Then
        
        SaveAs Filename:="U:\USER\Automotive\Abrufe\Automobilaufstellung " & _
            Format$(Date, "yyyy.mm.dd") & ".xls", FileFormat:=xlExcel8
        
    End If
End Sub

Private Sub Workbook_BeforeClose(cancel As Boolean)
    If MsgBox("Änderungen in Original speichern?", vbYesNo) = vbYes Then
        Application.DisplayAlerts = False
        Save
        SaveAs Filename:="U:\USER\Automotive\Abrufe\Automobilaufstellung.xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = True
    Else
        Saved = True
        Application.Quit
    End If
End Sub

Gruß
Nepumuk

Betrifft: AW: Ohne Nachfrage speichern und schließen
von: hans
Geschrieben am: 06.10.2020 15:54:48

Danke funzt!