Herbers Excel/VBA-Archiv

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

Ohne Nachfrage speichern und schließen

• Ohne Nachfrage speichern und schließen von hans vom 06.10.2020 15:13:28
• AW: Ohne Nachfrage speichern und schließen - von ChrisL am 06.10.2020 15:26:27
• AW: Ohne Nachfrage speichern und schließen - von Nepumuk am 06.10.2020 15:27:22
  • AW: Ohne Nachfrage speichern und schließen - von hans am 06.10.2020 15:54:48

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:


Gruß
Nepumuk

  

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

Danke funzt!