Auto open funktioniert nicht richtig

Sub Auto_open()
' Auto_öffnen Makro
' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _
Modus schalten.
Sheets("Grundwerte").Visible = False
Sheets("Hinweise").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
End Sub

Allerdings bleibt die Bearbeitungszeile trotzdem eingeblendet.
Außerdem bräuchte ich noch einen Tip, wie ich die Datei beenden kann, ohne Speicherabfrage.
Bisher beende ich die Datei so:

Sub Auto_close()
' Auto_schließen Makro
' Blatt "Grundwerte" wieder einblenden. Gitternetz etc einblenden. In Normal-Anicht schalten.
Sheets("Grundwerte").Visible = True
Sheets("Hinweise").Select
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
End Sub

Dank für Eure Unterstützung.