Private Sub Workbook_BeforeClose
Scot
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.MoveAfterReturnDirection = xlDown
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Ply").Enabled = True
Application.ScreenUpdating = True
End Sub
Ziel ist, vor dem Schliessen des Programms wieder die Standard-Ansicht herzustellen, damit - wenn man das Programm neu ausführt - wieder alles normal aussieht. Es klappt leider nicht! Neue Vorlagen verfügen nur über die Ansicht, welche in meiner Datei definiert gewesen war.Ein Detail noch: Meine Datei ist eine Art Adressliste mit ca. 80 Einträgen untereinander (ein Datensatz in mehreren Zellen von links nach rechts, über mehrere Tabellenblätter verteilt). Wenn keine Datensätze vorhanden sind (die Zeilen also leer), funtioniert's!
Hat jemand eine Lösung parat?
Herzlichen Dank bereits jetzt.
Liebe Grüsse
Scot