Microsoft Excel

Herbers Excel/VBA-Archiv

Startseite festlegen

Betrifft: Startseite festlegen von: Marc
Geschrieben am: 16.08.2004 20:40:26

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
  


Betrifft: AW: Startseite festlegen von: Ulf
Geschrieben am: 16.08.2004 20:45:31

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


Ulf


  


Betrifft: AW: Startseite festlegen von: ransi
Geschrieben am: 16.08.2004 20:47:30

hallo

versuch doch mal so:

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

ransi


  


Betrifft: Perfekt! Danke Euch!!! von: Marc
Geschrieben am: 16.08.2004 21:03:33

.


  


Betrifft: AW: Startseite festlegen von: Harry
Geschrieben am: 16.08.2004 20:55:53

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


 

Beiträge aus den Excel-Beispielen zum Thema "Startseite festlegen"