Thread: Password Protected Tabs

Chances are,. if you've used tab controls you don't want all your users to gain access to everything.

The following sample shows an easy way to password protect your tabs,

The main tabcontrol is called tabctl.

You will notice in the command button event,. we are referencing this,.. in order to set focus based on the strInput of the password.

If a correct password is entered tabs tagged with a "*" will be opened and become visible.

Code:

Private Sub Command_Click()
   Dim strInput As String
    Dim ctl As Control
    
        strInput = InputBox("Please enter a password to access this tab" & vbNewLine & vbNewLine & "PASSWORD = password", _
                            "Restricted Access")

        If strInput = "" Or strInput = Empty Then
            MsgBox "No Input Provided", , "Required Data"
            TabCtl.Pages.Item(0).SetFocus
            Exit Sub
        End If

        If strInput = "password" Then

            For Each ctl In Controls
                If ctl.Tag = "*" Then
                    ctl.Visible = True
                End If
            Next ctl
            ' If incorrect password supplied return to tab (index 0)
        Else
            MsgBox ("Sorry, you do not have access to this information")
            TabCtl.Pages.Item(0).SetFocus

            Exit Sub
        End If
 
End Sub

Code:

Private Sub Form_Current()
        'Hide controls tagged with "*" until password entered.
    Dim ctl As Control
    For Each ctl In Controls
        If ctl.Tag = "*" Then
            ctl.Visible = False
        End If
    Next ctl
    
End Sub

See attached example

Rural Guy,

Thanks for the simplified code,.. i have been known on occasions to go the long way around things.

I have updated the sample

AOG