Seitenwechsel Multipage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hei Hendrik,
ja, da haben wir uns wirklich falsch verstanden....
Also, der Ablauf, wie er sein soll, ist folgender:
Seite 1 ist sichtbar, der Nutzer drückt auf das 2.Register, es schaltet sich die Passwort-Eingabe auf und wenn ein falsches Passwort eingegeben wird, wird NICHT auf die 2. Seite umgeschaltet, sondern die 1. wieder sichtbar gemacht.
Wenn ich diesen Aublauf simulieren will, bleibt (da die 2. Seite ja schon sichtbar geschaltet ist, wenn ich im Change-Ereignis darauf reagieren kann) nach Eingabe des falschen Passworts, der Inhalt der 2. Seite weiterhin aktuell, obwohl ich im Code, die 1. Seite als aktuelle setze.
Ich war davon ausgegangen, dass, wenn ich ein Register drücke (oder dies eben per Code mache), dann auch die dazugehörige Seite als Inhalt angezeigt wird. In meinem Ablauf wird aber lediglich das Register der 1. Seite dann angewählt, sichtbar bleibt aber der Inhalt der 2. Seite.
Deinen Vorschlag hatte ich so verstanden, dass ich bei jedem Register-Wechsel die Elemente der Seiten explizit per Code auf sichtbar/unsichtbar schalte.
Ich dachte aber, dass das eigentlich Sache des Multipage-Objektes sein sollte..., dazu ist es doch da, oder?
Vielen Dank auf jeden Fall für Deine Bemühungen und ich hoffe, wir reden jetzt nicht mehr aneinander vorbei,
Gruß von Maria

hallo maria
das change-ereignis reagiert auf eine bereits vollzogene änderung.
d.h. in dem moment wo du auf register 2 drückst ist es bereits aktiv und wird angezeigt - dann
erst wird deine passwortabfrage aktiv.
mit der visible-eigenschaft kannst du das betreffende register komplett ausblenden -> dann kannst
du es aber auch nicht mehr anklicken.
ein vorschlag (wenn auch nicht sauber):
Modul mdl_globals:
Option Explicit
Public Const cStrPasswort As String = "Richtiges Passwort"
Public PassOK As Boolean
UserForm uf_reportController:
Option Explicit


Private Sub cbClose_Click()
Unload Me
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub mp_RepAdm_Change()
If mp_RepAdm.Value = 1 Then
If PassOK = False Then
mp_RepAdm.Value = 0
uf_password.Show
End If
End If
End Sub

UserForm uf_password:
Option Explicit


Private Sub cbCancel_Click()
uf_reportController.mp_RepAdm.Value = 0
Unload Me
End Sub


Private Sub cbOk_Click()
If tbPassword.Text = cStrPasswort Then
PassOK = True
uf_reportController.mp_RepAdm.Value = 1
PassOK = False
Unload Me
Else
MsgBox ("Das eingegebene Passwort ist nicht gültig!")
Unload Me
End If
End Sub

und in DieseArbeitsmappe:
Option Explicit


Private Sub Workbook_Open()
PassOK = False
uf_reportController.Show
End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Seitenwechsel Multipage

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread