Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Startseite festlegen

Startseite festlegen
16.08.2004 20:40:26
Marc
Hallo,
mit folgenden Code´s öffne und schließe ich meine
Arbeitsmappe:
Diese Arbeitsmappe
Option Explicit

Private Sub Workbook_Open()
Sheets("Startseite").Activate
Passworteingabe.Show
If Paßwort <> "test" Then Workbooks(ActiveWorkbook.Name).Close SaveChanges:=True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

Soweit i.O..
Was mich aber stört, ist folgendes:
Beende ich die Sitzung beispielsweise im Blatt 10 und öffne die Mappe anschließend wieder,
erscheint für ca. 1 Sec. Blatt 10 und dann erst meine „Startseite“!
An sich ist es nichts Dramatisches, aber es stört.
Es würde mich sehr freuen, wenn jemand von euch eine Idee hätte,
das trotz des Speichern´s des zuletzt benutzten TabBl´s, sofort die „Starseite“ erscheint.
Gruß
Marc

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Startseite festlegen
Ulf

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Startseite").Activate
ThisWorkbook.Save
End Sub

Ulf
AW: Startseite festlegen
ransi
hallo
versuch doch mal so:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Startseite").Activate
ThisWorkbook.Save
End Sub

ransi
Perfekt! Danke Euch!!!
16.08.2004 21:03:33
Marc
.
AW: Startseite festlegen
16.08.2004 20:55:53
Harry
so wäre der Blatt-Wechsel beim Schließen auch nicht mehr sichtbar:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Startseite").Activate
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

Gruß
Harry
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige