Auto open funktioniert nicht richtig
25.02.2009 14:31:35
Bodo
Ich versuche diesen Code hier zum Laufen zu bringen.
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.