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

 

[Paul Ked]

You could set the visible property of the page to True or False, eg

If Admin = True Then 
    Page2.Visible = True
Else
    Page2.Visible = False
End If

 

[Logit]

.
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

Download : https://www.amazon.com/clouddrive/share/FQG4fiajWt22SE5ar4Ox6jhmX4A2kdReTl2EqnG6s49

 

[RoryA]

You can also remove the tabs so that the user can only access the pages through controls you add. That will give you full control over who can see what.

 

[Paul Ked]

        MsgBox "Incorrect password entered too many times. Try again later."
        Application.Visible = False
        Application.Quit

Very harsh, don't you think?

 

[kelly mort]

Oh okay thanks to all of you for your help.
I have not testers the codes yet but I am really impressed.

I am out of my pc now. I will test them and respond

 

[kelly mort]

You can also remove the tabs so that the user can only access the pages through controls you add. That will give you full control over who can see what.

How do I remove the tabs?
Regards
Kelly

 

[My Aswer Is This]

Put this script in your Userform:

Modify if needed:

Private Sub UserForm_Initialize()
MultiPage1.Style = fmTabStyleNone
End Sub

How do I remove the tabs?
Regards
Kelly

 

[RoryA]

How do I remove the tabs?
Regards
Kelly

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

 

[My Aswer Is This]

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

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