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