AW: Multipage Seite nur per Makro wechseln
02.01.2012 15:31:35
Lisa
Hallo zusammen, hallo Luschi, danke für die schnelle Antwort ich denke es ist doch umfangreicher bei einer Multipage das Wechseln der Seiten durch klick auf den Reiter zu unterbinden.
Die Reiter oder Seiten können auch mit den Pfeiltasten rechts, links oder der Tab Taste gewechselt werden.
Das alles zu unterbinden, bin ich nun doch in meiner Recherche fündig geworden.
Private lngAktuelleSeite As Long
Private Sub MultiPage1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
lngAktuelleSeite = MultiPage1.Value
End Sub
Private Sub MultiPage1_KeyUp( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If lngAktuelleSeite MultiPage1.Value Then Wechselüberprüfung
End Sub
Private Sub MultiPage1_MouseDown(ByVal Index As Long, _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
IngAktuelleSeite = MultiPage1.Value
End Sub
Private Sub MultiPage1_MouseUp(ByVal Index As Long, _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If lngAktuelleSeite MultiPage1.Value Then Wechselüberprüfung
End Sub
Private Sub Wechselüberprüfung()
Select Case lngAktuelleSeite
Case 0
' If Bedingung0NichtErfüllt Then
If MsgBox("Wechseln?", vbYesNo, "Seite") = vbNo Then _
MultiPage1.Value = lngAktuelleSeite
Case 1
' If Bedingung1NichtErfüllt Then
If MsgBox("Wechseln?", vbYesNo, "Seite") = vbNo Then _
MultiPage1.Value = lngAktuelleSeite
End Select
End Sub
hiermit also wäre der Wechsel mit einer Abfrage, wahlweise auch ohne Abfrage, unterbunden!
Für alle die es interessiert, also der Code dazu!
Das kurze aktivieren der jeweiligen Seite also das aufblinken muss man wohl in kauf nehmen!
LG Lisa