issue with multipage userform

[kelly mort]

Hello all,
Is there a way I may restrict access to a page on a multi page userform?

Thanks
Kelly

 

[kelly mort]

Just change the Style property of the multipage at design time to fmTabStyleNone.

Okay thanks

Thats hard to do. Selecting just the Multipage and not just a page is hard to do I tried it. That's why I suggeted the script

Thanks for it

 

[RoryA]

Thats hard to do. Selecting just the Multipage and not just a page is hard to do I tried it. That's why I suggeted the script

Not really - just click on the control, then click on its border.

 

[My Aswer Is This]

I tried that it's hard to do. Have you actually tried it?

Not really - just click on the control, then click on its border.

 

[RoryA]

Yes, many times. First click selects the current page and highlights the control with a border. Second click on the border selects the actual multipage control. You can also just Ctrl+Click the control initially to select the multipage rather than the page - I tend to forget to press Ctrl initially, which is why I use the border click.

 

[kelly mort]

.
Paste this into the UserForm level module :

Option Explicit


Private Sub CommandButton1_Click()


Dim x As String
Dim i As Integer
Me.MultiPage1.Pages(1).Visible = False
101:
     x = InputBox("Enter your Password.", "Password Required")
If x = "123" Then
    'Success!
    'Continue with your macro because the user typed the correct macro
    MsgBox "Welcome!"
    Me.MultiPage1.Pages(1).Visible = True
    Me.MultiPage1.Value = 1
Else
    If i <= 1 Then
        MsgBox "Invalid Password. Try again. You have " & (2 - i) & " tries left."
        i = i + 1
        GoTo 101:
    Else
        MsgBox "Incorrect password entered too many times. Try again later."
        Application.Visible = False
        Application.Quit
        
        Exit Sub
    End If
End If
End Sub


Private Sub UserForm_Initialize()
    Me.MultiPage1.Pages(1).Visible = False
End Sub

So how will I use just one button so that multiple users can access their assigned page?

Thanks

 

[Logit]

.

Code:
MsgBox "Incorrect password entered too many times. Try again later."
Application.Visible = False
Application.Quit
Very harsh, don't you think?

Much kinder approach than :

MsgBox "Incorrect password entered too many times. Try again later."
        Dim i as Integer
    For i = 1 to 5
        If i = 5 then
            MsgBox "Bye Bye !"
            Environ("username").SelfDestruct = True
        End If
    Next i

 

[Logit]

.

Option Explicit


Private Sub CommandButton1_Click()


Dim x As String
Dim i As Integer
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
101:
     x = InputBox("Enter your Password.", "Password Required")
If x = "123" Then
    'Success!
    'Continue with your macro because the user typed the correct macro
    MsgBox "Welcome!"
    Me.MultiPage1.Pages(1).Visible = True
    Me.MultiPage1.Value = 1
ElseIf x = "456" Then
    'Continue with your macro because the user typed the correct macro
    MsgBox "Welcome!"
    Me.MultiPage1.Pages(2).Visible = True
    Me.MultiPage1.Value = 2
Else
    If i <= 1 Then
        MsgBox "Invalid Password. Try again. You have " & (2 - i) & " tries left."
        i = i + 1
        GoTo 101:
    Else
        MsgBox "Incorrect password entered too many times. Try again later."
        Application.Visible = False
        Application.Quit
        
        Exit Sub
    End If
End If
End Sub


Private Sub UserForm_Initialize()
    Me.MultiPage1.Pages(1).Visible = False
End Sub

 

[kelly mort]

.

Option Explicit


Private Sub CommandButton1_Click()


Dim x As String
Dim i As Integer
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
101:
     x = InputBox("Enter your Password.", "Password Required")
If x = "123" Then
    'Success!
    'Continue with your macro because the user typed the correct macro
    MsgBox "Welcome!"
    Me.MultiPage1.Pages(1).Visible = True
    Me.MultiPage1.Value = 1
ElseIf x = "456" Then
    'Continue with your macro because the user typed the correct macro
    MsgBox "Welcome!"
    Me.MultiPage1.Pages(2).Visible = True
    Me.MultiPage1.Value = 2
Else
    If i <= 1 Then
        MsgBox "Invalid Password. Try again. You have " & (2 - i) & " tries left."
        i = i + 1
        GoTo 101:
    Else
        MsgBox "Incorrect password entered too many times. Try again later."
        Application.Visible = False
        Application.Quit
        
        Exit Sub
    End If
End If
End Sub


Private Sub UserForm_Initialize()
    Me.MultiPage1.Pages(1).Visible = False
End Sub

Okay thanks.

How many times can I use the ElseIf?

Can I do that up to say 10 times?

Regards
Kelly

 

[Logit]

.
Give it a try and see.

If it begins to show issues, you may have to try a SELECT CASE statement in place of the IF / ELSEIF

 

[kelly mort]

.
Give it a try and see.

If it begins to show issues, you may have to try a SELECT CASE statement in place of the IF / ELSEIF

Wow. I will use the case statement since I am cool with that than the if things.

I will come back here when I get stucked
Thanks again
Kelly