DeveloperBarn

AOG123 · #1 June 10th, 2008, 10:12 AM

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

RuralGuy · #2 June 13th, 2008, 01:07 PM

I would think you could simplify the code to:

Code:

Private Sub Command_Click()
   Dim ctl As Control

   If InputBox("Please enter a password to access this tab" & _
               vbNewLine & vbNewLine & "PASSWORD = password", _
               "Restricted Access") = "password" Then

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

End Sub

Sorry but I couldn't resist.

AOG123 · #3 June 13th, 2008, 02:22 PM

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

RuralGuy · #4 June 13th, 2008, 03:20 PM

AOG,
Glad I can help out once in a while.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hashing (Encryption) Password & Other Sensitive Information	BLaaaaaaaaaarche	ASP Code Samples	5	February 23rd, 2009 10:59 PM

DeveloperBarn

Password Protected Tabs

Password Protected Tabs

Similar Threads

The Following 2 Users Say Thank You to AOG123 For This Useful Post:
dann (July 2nd, 2009), jchrisf (June 20th, 2008)

The Following 3 Users Say Thank You to RuralGuy For This Useful Post:
AOG123 (June 13th, 2008), BLaaaaaaaaaarche (June 13th, 2008), dann (July 2nd, 2009)