Anzeige
Archiv - Navigation
1556to1560
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
Inhaltsverzeichnis

Multipage und Enabled

Multipage und Enabled
22.05.2017 21:10:53
Olga
Hallo Zusammen,
Ich möchte von einer MultiPage einen Frame aufrufen.
Die aktuelle Page soll nicht bearbeitet werden können.
Jedoch wenn ich die Page auf false setze wird die nächste Page aktiviert.
Das möchte ich nicht.
Danke, für Eure Unterstützung.
Gruß
Olga
https://www.herber.de/bbs/user/113734.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Multipage und Enabled
22.05.2017 23:24:36
fcs
Hallo Olga,
könntest für die Eingabe-Steuerelemente auf der Seite die Eigenschaft Locked auf True setzen, um Eingaben zu verhindern oder die Steuerelemente deaktivieren
LG
Franz
Option Explicit
Const cA As Integer = 0
Const cB As Integer = 1
Const cC As Integer = 2
Const cD As Integer = 3
Const cE As Integer = 4
Const cF As Integer = 5
Dim iz As Integer
Private Sub prcStatusPage(indexPage As Integer, bolActivate As Boolean)
'Steuerelemente auf einer Multipageseite activieren/deaktivieren
Dim objControl As Control
For Each objControl In Me.MultiPage1.Pages(indexPage).Controls
Select Case LCase(VBA.TypeName(objControl)) '.controltype
Case "listbox", "textbox", "combobox", "checkbox", "optionbutton", "togglebutton"
objControl.Object.Locked = Not bolActivate
Case "spinbutton", "scrollbar"
objControl.Object.Enabled = bolActivate
Case "commandbutton"
'do nothing
End Select
Next
End Sub
Private Sub cmdAus_Click()
Call prcStatusPage(indexPage:=iz, bolActivate:=True)
MultiPage1.Value = iz
Frame1.Visible = False
End Sub
Private Sub CommandButton1_Click()
iz = cA
Call Auf_Frame1
End Sub
Private Sub CommandButton2_Click()
iz = cB
Call Auf_Frame1
End Sub
Private Sub CommandButton3_Click()
iz = cC
Call Auf_Frame1
End Sub
Private Sub CommandButton4_Click()
Call Auf_Frame1
End Sub
Private Sub CommandButton5_Click()
Call Auf_Frame1
End Sub
Private Sub CommandButton6_Click()
Call Auf_Frame1
End Sub
Private Sub UserForm_Initialize()
Frame1.Visible = False
End Sub
Private Function Auf_Frame1()
Call prcStatusPage(indexPage:=iz, bolActivate:=False)
MultiPage1.Value = iz
Frame1.Visible = True
End Function

Anzeige
AW: Multipage und Enabled
23.05.2017 05:32:50
Olga
Hallo Franz,
super, genau so.
Danke!
Gruß
Olga

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige