Ohne Nachfrage speichern und schließen

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