Hi,

Can someone please help with this query,

I'm trying to password protect a macro.
When I use the following it will ask the user for a password and *******
will be displayed in the input box, however when the user types in their
password it is visible to all.
How do I change this so that the users password is displayed as ****** when
entered

Dim MyPassword
MyPassword = InputBox("Please enter a valid password", "Password Prompt",
"********")

Many thanks

Hi Steve

Not possible with a inputbox

Create a small userform with a textbox
See the PasswordChar Property in the properties window

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steve C" <SteveC@discussions.microsoft.com> wrote in message news:1688C1C9-9799-4E08-9FAC-A2051ADA80CF@microsoft.com...
> Hi,
>
> Can someone please help with this query,
>
> I'm trying to password protect a macro.
> When I use the following it will ask the user for a password and *******
> will be displayed in the input box, however when the user types in their
> password it is visible to all.
> How do I change this so that the users password is displayed as ****** when
> entered
>
> Dim MyPassword
> MyPassword = InputBox("Please enter a valid password", "Password Prompt",
> "********")
>
> Many thanks

Thank you,
I have been losing sleep over this!

"Ron de Bruin" wrote:

> Hi Steve
>
> Not possible with a inputbox
>
> Create a small userform with a textbox
> See the PasswordChar Property in the properties window
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Steve C" <SteveC@discussions.microsoft.com> wrote in message news:1688C1C9-9799-4E08-9FAC-A2051ADA80CF@microsoft.com...
> > Hi,
> >
> > Can someone please help with this query,
> >
> > I'm trying to password protect a macro.
> > When I use the following it will ask the user for a password and *******
> > will be displayed in the input box, however when the user types in their
> > password it is visible to all.
> > How do I change this so that the users password is displayed as ****** when
> > entered
> >
> > Dim MyPassword
> > MyPassword = InputBox("Please enter a valid password", "Password Prompt",
> > "********")
> >
> > Many thanks
>

Hi Steve

See this page for Userfom stuff
http://support.microsoft.com/default...b;EN-US;829070


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Steve C" <SteveC@discussions.microsoft.com> wrote in message news:0B5589B2-56C9-4124-9760-BC941F2CE3E5@microsoft.com...
> Thank you,
> I have been losing sleep over this!
>
> "Ron de Bruin" wrote:
>
>> Hi Steve
>>
>> Not possible with a inputbox
>>
>> Create a small userform with a textbox
>> See the PasswordChar Property in the properties window
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "Steve C" <SteveC@discussions.microsoft.com> wrote in message news:1688C1C9-9799-4E08-9FAC-A2051ADA80CF@microsoft.com...
>> > Hi,
>> >
>> > Can someone please help with this query,
>> >
>> > I'm trying to password protect a macro.
>> > When I use the following it will ask the user for a password and *******
>> > will be displayed in the input box, however when the user types in their
>> > password it is visible to all.
>> > How do I change this so that the users password is displayed as ****** when
>> > entered
>> >
>> > Dim MyPassword
>> > MyPassword = InputBox("Please enter a valid password", "Password Prompt",
>> > "********")
>> >
>> > Many thanks
>>