I need a way to password protect a combobox?
How about adding a button to the form that asks for a password:
I had this under Userform1 (with the multipage control--with on page named
Admin):
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
If Me.MultiPage1.Pages("admin").Visible = False Then
UserForm2.Show
End If
End Sub
Private Sub UserForm_Initialize()
Me.MultiPage1.Pages("admin").Visible = False
End Sub
This code went behind Userform2 (the password form):
Option Explicit
Private Sub CommandButton1_Click()
Dim myPwd As String
myPwd = "ok"
UserForm1.MultiPage1.Pages("admin").Visible _
= CBool(Me.TextBox1.Value = myPwd)
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
End Sub
I changed the (Name) property to Admin in the properties window when that tab
was selected.
E-J wrote:
I need a way to password protect a control so that when it is clicked the
user is faced with a dialog box asking to enter password. The control is a
single page on a multipage control. The other pages I want to be made
available exept the "ADMIN" page.
--
Dave Peterson
|