Inputing a password while running a show

[Guest]

I am using PowerPoint 2003 and have a single slide that I want to emulate a
program that I use at work. I have Textbox that becomes visible when a
command button is pressed. The textbox has another textbox on it that you
type the password and it displays **** in place of the letters typed. To
exit I want the user to press a commandbutton labeled "OK" or one labeled
"Cancel".

 

[Ute Simon]

I am using PowerPoint 2003 and have a single slide that I want to emulate a

program that I use at work. I have Textbox that becomes visible when a
command button is pressed. The textbox has another textbox on it that you
type the password and it displays **** in place of the letters typed. To
exit I want the user to press a commandbutton labeled "OK" or one labeled
"Cancel".

Are you *showing* this presentation to your audience or will they be *using*
it themselves? In any case I would fake the typing of the password with
pre-entered **** and a wipe animation (by letter). If they use it themselves
I would say "This is a Demo, so click in the textbox and we enter the
correct password for you." The textbox would have an invisible (or white)
shape that triggers the wipe-effect of the text. I would also use trigger
animations for the OK and Cancel buttons.

Best regards,
Ute

 

[Guest]

That would normally work. I am working on Lesson Plans for a power plant, I
make up single page presentations that use the VBA and activex controls to
simulate circuits used in the plant system. The textbox control has a
property that allows the replacement of the typed letter with "*". The
slides get very complex with timers, indicators, bi-stables, relays and
switches. But I still can't get the password to work. I did get inputbox to
work but it does not look like what they enter on the computer.

Sub PassCheck()
Dim StringPass As String
StringPass = "CHUCK"
response = UCase(InputBox("Enter password"))
GoodPW = (response = StringPass)
End Sub

What I need should look like
_____________________
| |
| Enter Password. |
| ___________ |
| |_________| |
| ____ _______ |
| |Ok | |Cancel | |
|___________________|

Thanks for your help

 

[Steve Rindsberg]

That would normally work. I am working on Lesson Plans for a power plant, I
make up single page presentations that use the VBA and activex controls to
simulate circuits used in the plant system. The textbox control has a
property that allows the replacement of the typed letter with "*". The
slides get very complex with timers, indicators, bi-stables, relays and
switches. But I still can't get the password to work. I did get inputbox to
work but it does not look like what they enter on the computer.

Sub PassCheck()
Dim StringPass As String
StringPass = "CHUCK"
response = UCase(InputBox("Enter password"))
GoodPW = (response = StringPass)
End Sub

What I need should look like
_____________________
| |
| Enter Password. |
| ___________ |
| |_________| |
| ____ _______ |
| |Ok | |Cancel | |
|___________________|

Thanks for your help

Can you use an ActiveX text box control and something like this:

Private Sub txtPassCheck_Change()
If UCase(Me.txtPassCheck.Text) = "CHUCK" Then
MsgBox "You're in luck, Chuck."
End If
End Sub

Or since the user has to click another button to make this appear, why not use a
user form? The button the user clicks could trigger a macro that makes the form
visible (calls its Show method)

 

[Guest]

Thanks, I will give it a try this afternoon, tried something similar to this
with no luck, but it does give me some ideas.

 

[Guest]

I did get a version working that is mostly what I wanted, thanks to all that
help