Speichern ohne Nachfrage
02.10.2020 12:57:01
hans
mein File fragt mich ob vor dem Verlassen gespeichert werden soll. Wenn ich "ja" klicke soll nicht nachgefragt werden ob das Original überschrieben wird und bei "nein" Excel komplett geschlossen werden.
Kann mir bitte jemand den Code unten so anpassen das es funktioniert?
Danke Gruß Hans
sieht aktuell so aus:
Private Sub Workbook_Open()
If MsgBox("Dokument bearbeiten?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung " & Format(Now, "yyyy.mm.dd" _
_
_
_
) & ".xls"
End If
End Sub
Private Sub Workbook_BeforeClose(cancal As Boolean)
If MsgBox("?nderungen in Original speichern?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs "U:\USER\Automotive\Abrufe\Automobilaufstellung " & ".xlsm"
End If
End Sub
Anzeige