Problem mit Code
Tobi
folgendes Problem macht mir ziemlich viel Kopfzerbrechen:
Mit den nach folgenden Auszug aus meinen Code möchte
ich gerne folgendes erreichen:
Meine Arbeitsmappe soll, bevor sie geschlossen wird, automatisch speichern.
Das funktioniert!
Bei neuen öffnen, dieser Mappe, soll die Passwortabfrage auf TabBlatt Passwort
erfolgen.
Das funktioniert nicht! Die Passwortabfrage findet immer in dem vorm schliessen,
letzten geöffneten Blatt statt. Nach Eingabe des Passwort´s, öffnet sich das
Blatt Passwort.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Passwort").Visible = xlVeryHidden
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Passworteingabe.Show
If Paßwort <> "xxxx" Then Workbooks(ActiveWorkbook.Name).Close SaveChanges:=True
ActiveWorkbook.Worksheets("Passwort").Activate
End Sub
Ich möchte aber nun, das unabhängig davon, welches Blatt vorm schliessen
geöffnet gewesen ist, bei erneuten öffnen die Passwortabfrage immer im
Blatt Passwort stattfindet und dieses Blatt als Startseite dieser Mappe fest-
gelegt bleibt.
Bekomme es aber leider nicht hin! Möchtet Ihr mir helfen?
Gruß
Tobi