Popup Fenster automatisch beantworten?
06.02.2019 19:15:26
Dennis
ich habe folgendes Problem bei dem Beenden via Button.
Sobald ich diesen betätige speichert es die Datei und beendet sie danach,
jetzt kommt das Problem: Es kommt erneut ein Speichern Fenster das ich von Hand betätigen muss. Die soll aber nicht erscheinen.
1. Der Code in der Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Range("A2:I18").Select
ActiveWindow.Zoom = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Range("A1").Select
End Sub
Und der Code in dem Makro:
Sub Beenden()
ActiveWorkbook.Save
Application.Quit
End Sub
Ich bedanke mich im voraus für alles hilfreiche das eEinfliegt.
Gruß Dennis
Anzeige