Password when Check Box is checked

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Johnny - 30 Jan 2007 19:03 GMT

I'm searching for VBA code or other means that would prompt for a password
when a check box is checked. I'm not a VBA wiz kid so please be gentle if
this is a stupid question.

Reply to this Message

Johnny - 30 Jan 2007 20:51 GMT

Let me add to this. I create a UserForm which contains a text box for the
password entry. I've also added an "Okay" button. What I would like to
happen is when the "Okay" box is clicked it's checks for a specific password
that I have stored in a cell on a hidden worksheet and if it matches what's
type in the it will accept the password and continue on.

> I'm searching for VBA code or other means that would prompt for a password
> when a check box is checked. I'm not a VBA wiz kid so please be gentle if
> this is a stupid question.

Reply to this Message

Dave Peterson - 30 Jan 2007 21:57 GMT

if me.textbox1.text = thisworkbook.worksheets("hidden").range("a1").value then
'do the work
else
msgbox "Not this time, skippy!"
end if

> Let me add to this. I create a UserForm which contains a text box for the
> password entry. I've also added an "Okay" button. What I would like to
[quoted text clipped - 5 lines]
> > when a check box is checked. I'm not a VBA wiz kid so please be gentle if
> > this is a stupid question.

Signature

Dave Peterson

Reply to this Message

Johnny - 30 Jan 2007 22:19 GMT

Fantastic! It worked.

> if me.textbox1.text = thisworkbook.worksheets("hidden").range("a1").value then
> 'do the work
[quoted text clipped - 11 lines]
> > > when a check box is checked. I'm not a VBA wiz kid so please be gentle if
> > > this is a stupid question.

Reply to this Message

Johnny - 31 Jan 2007 19:01 GMT

I have a follow up question. On the userform, how do I get the cursor to
appear in textbox1 when it loads?

> Fantastic! It worked.
>
[quoted text clipped - 13 lines]
> > > > when a check box is checked. I'm not a VBA wiz kid so please be gentle if
> > > > this is a stupid question.

Reply to this Message

Dave Peterson - 31 Jan 2007 19:39 GMT

Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
End Sub

> I have a follow up question. On the userform, how do I get the cursor to
> appear in textbox1 when it loads?
[quoted text clipped - 20 lines]
> > >
> > > Dave Peterson

Signature

Dave Peterson

Reply to this Message