Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

problem bei workbook open

problem bei workbook open
09.04.2003 20:00:53
beate
hi

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....



2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: problem bei workbook open
09.04.2003 20:04:33
t



Re: problem bei workbook open
10.04.2003 05:53:01
Moe

SUB auto_open

Workbooks("Mappe1").Close SaveChanges:=False

end sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige