Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.DisplayFormulaBar = True
Workbooks("Stromtool1.xls").Close SaveChanges:=False
End Sub
Private Sub Workbook_Open()
Sheets("Berechnung").EnableSelection = xlNoSelection
Sheets("PreisEingabe").EnableSelection = xlNoSelection
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.WindowState = xlNormal
.Width = 767 'Breite des Fensters
.Height = 650 'Höhe des Fensters
.Top = 0 'Position von oben
.Left = 0 'Position von links
End With
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
End Sub
die einfache frage die mich quält lautet: gibt es eine möglichkeit diesen code effektiver zu schreiben? es funzt zwar, aber excel braucht ziemlich lange um diese datei zu öffnen (und ein, microsoft unbekannter, fehler tritt auch auf) und ich denke dass ich den code leider etwas zu kompliziert geschrieben habe. wenn man den code kürzer schreiben kann mit demselben effekt würde ich mich über jeden hinweis freuen.
danke im voraus.