ich habe folgenden code für das öffnen einer datei geschrieben:
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("Gastool3.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
nun zur frage:
leider öffnet sich, bevor diese vba- datei sich aktiviert, eine "Mappe 1". diese stört mich ungemein. ich schätze dass sie irgendwie erscheint, weil ich soviel veränderungen an der darstellung vornehme, aber ich kann diese veränderungen nicht anders programmieren.
wie bekomme ich diese mappe 1 weg? und warum macht excel so ein sch....