Re: $$Excel-Macros$$ Masking Password in input box * *

[Hilary Lomotey]

Thanks Ashish

The option you have provided makes it impossible to access other sheet when
the workbook is opened
What I request exactly is amongst the three worksheet I only want say w
sheet 2 to be locked when the workbook is opened however if you enter the
password it should allow access all the time when the workbook is still
opened ie I can navigate to sheet 1 and back to sheet2 without being asked
for a password  but if the workbook is closed and reopened then to access
that sheet you need to input the password

Thanks
On Oct 27, 2012 5:43 AM, "ashish koul"  wrote:

> I think you should move code to workbook open module. Can you specify
> what exactly you want to do
>
> chk the attachment
>
>
>
>
>
> On Sat, Oct 27, 2012 at 4:19 AM, Hilary Lomotey  wrote:
>
>> Hi chief
>>
>> Pls a little observation unlike the input box when it gives you access
>> you can always come back to that sheet without asking you of the password
>> again  it only ask anytime the workbook is reopened which is perfect but
>> with the userform it always asking of password each time you select that
>> worksheet  pls can you modify the code to only ask for password only when
>> the workbk is opened   thnks
>>  On Oct 26, 2012 9:26 PM, "Hilary Lomotey"  wrote:
>>
>>> Perfect Ashish
>>> You hit the nail rigth on the head  exactly what I was lookin for  thnks
>>> A ZILLLION
>>> On Oct 25, 2012 3:35 PM, "ashish koul"  wrote:
>>>
  [image: Boxbe]  This message is
 eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup
 rule|
  More
 info

 see the attached file and make the changes as per your requirement

 On Wed, Oct 24, 2012 at 11:04 PM, Hilary Lomotey wrote:

> Hello Again,
>
> Pls how to i combine the code below here to the code in this attached
> workbook (got it on the web) to achieve my desired results. Desired 
> results
> being being able to password protect a sheet worksheet (just as the code
> below is doing only that its not masking the password).
> The attached workbook contains a password userform
>
> i dont know how to combine these codes to achieve my objective. pls
> assist
>
>
>
>
> Private Sub Worksheet_Activate()
> Static PasswordCorrect As Boolean
> Dim MYpassword As String
> If PasswordCorrect = False Then
> Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever
> sheet you want, just change the name)
> ElseIf PasswordCorrect = True Then
> Exit Sub
> End If
>
> MYpassword = InputBox("Enter Password")
>
> If MYpassword = "123'" Then
> PasswordCorrect = True
> Sheets("Sheet2").Select 'Put the name of your protected sheet here
> Else
> Sheets("Sheet1").Select
> PasswordCorrect = False
> End If
> End Sub
>
>
> On Wed, Oct 24, 2012 at 4:52 PM, Hilary Lomotey wrote:
>
>> Hello
>>
>> Pls see attatched file as example
>>
>>
>> On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey wrote:
>>
>>> Thanks Ashish,
>>>
>>> one question do i paste the same code in the userform? how do i go
>>> about it pls
>>>
>>> On Wed, Oct 24, 2012 at 3:17 PM, ashish koul 
>>> wrote:
>>>
  [image: Boxbe]  This message is
 eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add
 cleanup 
 rule|
  More
 info

 use userform and textbox  instead of msgbox and in text box choose
 * in passwordchar


 [image: Inline image 1]


 On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey 
 wrote:

> Hi Exxperts
>
>  I got this code to protect a worksheet, which was exactly what i
> was looking for only that entering the password into the input box  is
> unmasked so everyone standing by can see your password.
>
> can i get a code to mask the password inpu

Re: $$Excel-Macros$$ Masking Password in input box * * *

[respuzy]

Hi Paul

Thnks noted

Pls can Ʊ exactly suggest what I have to do. 

When I adjust the code to

Only frd_show it pops up correctly. However I am left with connecting the 
correct password to the userform form ie when I type password into the 
textbox1. 
Sent from my BlackBerry® smartphone from Airtel Ghana

-Original Message-
From: Paul Schreiner 
Sender: excel-macros@googlegroups.com
Date: Thu, 25 Oct 2012 10:09:53 
To: 
Reply-To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Masking Password in input box * * *

This message is eligible for Automatic Cleanup! (schreiner_p...@att.net) 
Add cleanup rule: 
https://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DaUUAiT9IHlWSjiVgasShmfxZXYUsCONgE8U12NdjzY61EpYi5u0bjrq3Bhw4ewLbgPShq6QaF6996RJ2imkeDP6V8TyGWs8yptz197MTyKK6WTIwAYuoAf7bQU8GiX5UwuHhORGOCrsw4Pz1dMy2dw%253D%253D%26key%3DbNpR8PHzrdsw69fp098Un%252F3zfhlOhQqu%252F0qiHj3iwXk%253D&tc=12751363784_61160080
More info: 
http://blog.boxbe.com/general/boxbe-automatic-cleanup?tc=12751363784_61160080

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

6) Jobs posting is not allowed.

7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.

Re: $$Excel-Macros$$ Masking Password in input box * *

[Paul Schreiner]

MYpassword =frm_pwd.Show

won't work.
Think about UserForms for a minute.
you can have numerous text boxes, list boxes, labels and buttons.

When you close the form,
WHAT gets "returned" to the calling program?

In fact, I don't think the .Show method returns ANYTHING.

You might be able to create a UserForm_Terminate event macro
that would set Mypassword = frm_pwd.(name of password box)

That might be the best way to handle it with the userform.

Or make a button on the form.
Or even a change event for the password box on the form.



 
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-





From: Hilary Lomotey 
To: excel-macros@googlegroups.com
Sent: Thu, October 25, 2012 12:49:11 PM
Subject: Re: $$Excel-Macros$$ Masking Password in input box * *

Thanks Ashish, really grateful for your assistance 

but the problem is my vba is still fundamental , i tried linking what u sent to 
me to the code below but i getting an error. could you amend the code for me. 
thanks

i substitued MYpassword = InputBox("Enter Password") line with 

MYpassword = frm_pwd.Show





Private Sub Worksheet_Activate()
    Static PasswordCorrect As Boolean
    Dim MYpassword As String
    If PasswordCorrect = False Then
        Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet you 
want, just change the name)
    ElseIf PasswordCorrect = True Then
        Exit Sub
    End If
    
    MYpassword = InputBox("Enter Password")
    
    If MYpassword = "nwiadmin01'" Then 'excelpros01'
    PasswordCorrect = True
    Sheets("Sheet2").Select 'Put the name of your protected sheet here
    Else
    Sheets("Sheet1").Select
    PasswordCorrect = False
    End If
End Sub


On Thu, Oct 25, 2012 at 3:33 PM, ashish koul  wrote:

  This message is eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add 
cleanup rule | More info 

>
>see the attached file and make the changes as per your requirement 
>
>
>On Wed, Oct 24, 2012 at 11:04 PM, Hilary Lomotey  wrote:
>
>Hello Again,
>>
>>
>>Pls how to i combine the code below here to the code in this attached 
>>workbook 
>>(got it on the web) to achieve my desired results. Desired results being 
>>being 
>>able to password protect a sheet worksheet (just as the code below is doing 
>>only 
>>that its not masking the password).  
>>The attached workbook contains a password userform 
>>
>>
>>i dont know how to combine these codes to achieve my objective. pls assist
>>
>>
>>
>>
>>
>>
>>
>>
>>Private Sub Worksheet_Activate()
>>    Static PasswordCorrect As Boolean
>>    Dim MYpassword As String
>>    If PasswordCorrect = False Then
>>        Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet 
>>you 
>>want, just change the name)
>>    ElseIf PasswordCorrect = True Then
>>        Exit Sub
>>    End If
>>    
>>    MYpassword = InputBox("Enter Password")
>>    
>>    If MYpassword = "123'" Then
>>    PasswordCorrect = True
>>    Sheets("Sheet2").Select 'Put the name of your protected sheet here
>>    Else
>>    Sheets("Sheet1").Select
>>    PasswordCorrect = False
>>    End If
>>End Sub
>>
>>
>>On Wed, Oct 24, 2012 at 4:52 PM, Hilary Lomotey  wrote:
>>
>>Hello  
>>>
>>>
>>>Pls see attatched file as example 
>>>
>>>
>>>
>>>On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey  wrote:
>>>
>>>Thanks Ashish, 
>>>>
>>>>
>>>>one question do i paste the same code in the userform? how do i go about it 
>>pls
>>>>
>>>>
>>>>On Wed, Oct 24, 2012 at 3:17 PM, ashish koul  wrote:
>>>>
>>>>  This message is eligible for Automatic Cleanup! (koul.ash...@gmail.com) 
>>>> Add 
>>>>cleanup rule | More info 
>>>>
>>>>>
>>>>>use userform and textbox  instead of msgbox and in text box choose * in 
>>>>>passwordchar 
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey  wrote:

Re: $$Excel-Macros$$ Masking Password in input box *

[Hilary Lomotey]

Hello Again,

Pls how to i combine the code below here to the code in this attached
workbook (got it on the web) to achieve my desired results. Desired results
being being able to password protect a sheet worksheet (just as the code
below is doing only that its not masking the password).
The attached workbook contains a password userform

i dont know how to combine these codes to achieve my objective. pls assist




Private Sub Worksheet_Activate()
Static PasswordCorrect As Boolean
Dim MYpassword As String
If PasswordCorrect = False Then
Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet
you want, just change the name)
ElseIf PasswordCorrect = True Then
Exit Sub
End If

MYpassword = InputBox("Enter Password")

If MYpassword = "123'" Then
PasswordCorrect = True
Sheets("Sheet2").Select 'Put the name of your protected sheet here
Else
Sheets("Sheet1").Select
PasswordCorrect = False
End If
End Sub


On Wed, Oct 24, 2012 at 4:52 PM, Hilary Lomotey  wrote:

> Hello
>
> Pls see attatched file as example
>
>
> On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey  wrote:
>
>> Thanks Ashish,
>>
>> one question do i paste the same code in the userform? how do i go about
>> it pls
>>
>> On Wed, Oct 24, 2012 at 3:17 PM, ashish koul wrote:
>>
>>>  [image: Boxbe]  This message is
>>> eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup 
>>> rule|
>>>  More
>>> info
>>>
>>> use userform and textbox  instead of msgbox and in text box choose * in
>>> passwordchar
>>>
>>>
>>> [image: Inline image 1]
>>>
>>>
>>> On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey wrote:
>>>
 Hi Exxperts

  I got this code to protect a worksheet, which was exactly what i was
 looking for only that entering the password into the input box  is unmasked
 so everyone standing by can see your password.

 can i get a code to mask the password input?. or better still another
 code to ask for password (masked) when a particular worksheet is acessed.
 thanks


 Private Sub Worksheet_Activate()
 Static PasswordCorrect As Boolean
 Dim MYpassword As String
 If PasswordCorrect = False Then
 Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever
 sheet you want, just change the name)
 ElseIf PasswordCorrect = True Then
 Exit Sub
 End If

 MYpassword = InputBox("Enter Password")

 If MYpassword = "123'" Then
 PasswordCorrect = True
 Sheets("Sheet2").Select 'Put the name of your protected sheet here
 Else
 Sheets("Sheet1").Select
 PasswordCorrect = False
 End If
 End Sub

  --
 Join official facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES (1120+ members already BANNED for violation)

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.

 2) Don't post a question in the thread of another member.

 3) Don't post questions regarding breaking or bypassing any security
 measure.

 4) Acknowledge the responses you receive, good or bad.

 5) Cross-promotion of, or links to, forums competitive to this forum in
 signatures are prohibited.

 6) Jobs posting is not allowed.

 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

 NOTE : Don't ever post personal or confidential data in a workbook.
 Forum owners and members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups "MS EXCEL AND VBA MACROS" group.
 To post to this group, send email to excel-macros@googlegroups.com.
 To unsubscribe from this group, send email to
 excel-macros+unsubscr...@googlegroups.com.



>>>
>>>
>>>
>>> --
>>> *Regards*
>>> * *
>>> *Ashish Koul*
>>>
>>>
>>> *Visit*
>>> *http://www.excelvbamacros.com/*
>>> *http://www.accessvbamacros.com/*
>>>
>>> P Before printing, think about the environment.
>>>
>>>
>>>
>>>  --
>>> Join official facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES (1120+ members already BANNED for violation)
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Nee

Re: $$Excel-Macros$$ Masking Password in input box *

[Hilary Lomotey]

Hello

Pls see attatched file as example

On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey  wrote:

> Thanks Ashish,
>
> one question do i paste the same code in the userform? how do i go about
> it pls
>
> On Wed, Oct 24, 2012 at 3:17 PM, ashish koul wrote:
>
>>  [image: Boxbe]  This message is
>> eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup 
>> rule|
>>  More
>> info
>>
>> use userform and textbox  instead of msgbox and in text box choose * in
>> passwordchar
>>
>>
>> [image: Inline image 1]
>>
>>
>> On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey wrote:
>>
>>> Hi Exxperts
>>>
>>>  I got this code to protect a worksheet, which was exactly what i was
>>> looking for only that entering the password into the input box  is unmasked
>>> so everyone standing by can see your password.
>>>
>>> can i get a code to mask the password input?. or better still another
>>> code to ask for password (masked) when a particular worksheet is acessed.
>>> thanks
>>>
>>>
>>> Private Sub Worksheet_Activate()
>>> Static PasswordCorrect As Boolean
>>> Dim MYpassword As String
>>> If PasswordCorrect = False Then
>>> Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever
>>> sheet you want, just change the name)
>>> ElseIf PasswordCorrect = True Then
>>> Exit Sub
>>> End If
>>>
>>> MYpassword = InputBox("Enter Password")
>>>
>>> If MYpassword = "123'" Then
>>> PasswordCorrect = True
>>> Sheets("Sheet2").Select 'Put the name of your protected sheet here
>>> Else
>>> Sheets("Sheet1").Select
>>> PasswordCorrect = False
>>> End If
>>> End Sub
>>>
>>>  --
>>> Join official facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES (1120+ members already BANNED for violation)
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>>
>>> 2) Don't post a question in the thread of another member.
>>>
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>>
>>> 4) Acknowledge the responses you receive, good or bad.
>>>
>>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>>> signatures are prohibited.
>>>
>>> 6) Jobs posting is not allowed.
>>>
>>> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
>>>
>>> NOTE : Don't ever post personal or confidential data in a workbook.
>>> Forum owners and members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "MS EXCEL AND VBA MACROS" group.
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> To unsubscribe from this group, send email to
>>> excel-macros+unsubscr...@googlegroups.com.
>>>
>>>
>>>
>>
>>
>>
>> --
>> *Regards*
>> * *
>> *Ashish Koul*
>>
>>
>> *Visit*
>> *http://www.excelvbamacros.com/*
>> *http://www.accessvbamacros.com/*
>>
>> P Before printing, think about the environment.
>>
>>
>>
>>  --
>> Join official facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES (1120+ members already BANNED for violation)
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>>
>> 2) Don't post a question in the thread of another member.
>>
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>>
>> 4) Acknowledge the responses you receive, good or bad.
>>
>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>> signatures are prohibited.
>>
>> 6) Jobs posting is not allowed.
>>
>> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
>>
>> NOTE : Don't ever post personal or confidential data in a workbook. Forum
>> owners and members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> To unsubscribe from this group, send email to
>> excel-macros+unsubscr...@googlegroups.com.
>>
>>
>>
>>
>

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poo

Re: $$Excel-Macros$$ Masking Password in input box *

[Hilary Lomotey]

Thanks Ashish,

one question do i paste the same code in the userform? how do i go about it
pls

On Wed, Oct 24, 2012 at 3:17 PM, ashish koul  wrote:

>  [image: Boxbe]  This message is eligible
> for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup 
> rule|
>  More
> info
>
> use userform and textbox  instead of msgbox and in text box choose * in
> passwordchar
>
>
> [image: Inline image 1]
>
>
> On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey  wrote:
>
>> Hi Exxperts
>>
>>  I got this code to protect a worksheet, which was exactly what i was
>> looking for only that entering the password into the input box  is unmasked
>> so everyone standing by can see your password.
>>
>> can i get a code to mask the password input?. or better still another
>> code to ask for password (masked) when a particular worksheet is acessed.
>> thanks
>>
>>
>> Private Sub Worksheet_Activate()
>> Static PasswordCorrect As Boolean
>> Dim MYpassword As String
>> If PasswordCorrect = False Then
>> Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever
>> sheet you want, just change the name)
>> ElseIf PasswordCorrect = True Then
>> Exit Sub
>> End If
>>
>> MYpassword = InputBox("Enter Password")
>>
>> If MYpassword = "123'" Then
>> PasswordCorrect = True
>> Sheets("Sheet2").Select 'Put the name of your protected sheet here
>> Else
>> Sheets("Sheet1").Select
>> PasswordCorrect = False
>> End If
>> End Sub
>>
>>  --
>> Join official facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES (1120+ members already BANNED for violation)
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>>
>> 2) Don't post a question in the thread of another member.
>>
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>>
>> 4) Acknowledge the responses you receive, good or bad.
>>
>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>> signatures are prohibited.
>>
>> 6) Jobs posting is not allowed.
>>
>> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
>>
>> NOTE : Don't ever post personal or confidential data in a workbook. Forum
>> owners and members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> To unsubscribe from this group, send email to
>> excel-macros+unsubscr...@googlegroups.com.
>>
>>
>>
>
>
>
> --
> *Regards*
> * *
> *Ashish Koul*
>
>
> *Visit*
> *http://www.excelvbamacros.com/*
> *http://www.accessvbamacros.com/*
>
> P Before printing, think about the environment.
>
>
>
>  --
> Join official facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES (1120+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> 6) Jobs posting is not allowed.
>
> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To post to this group, send email to excel-macros@googlegroups.com.
> To unsubscribe from this group, send email to
> excel-macros+unsubscr...@googlegroups.com.
>
>
>
>

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regar

Re: $$Excel-Macros$$ Masking Password in input box

[ashish koul]

use userform and textbox  instead of msgbox and in text box choose * in
passwordchar


[image: Inline image 1]


On Wed, Oct 24, 2012 at 8:44 PM, Hilary Lomotey  wrote:

> Hi Exxperts
>
>  I got this code to protect a worksheet, which was exactly what i was
> looking for only that entering the password into the input box  is unmasked
> so everyone standing by can see your password.
>
> can i get a code to mask the password input?. or better still another code
> to ask for password (masked) when a particular worksheet is acessed. thanks
>
>
> Private Sub Worksheet_Activate()
> Static PasswordCorrect As Boolean
> Dim MYpassword As String
> If PasswordCorrect = False Then
> Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet
> you want, just change the name)
> ElseIf PasswordCorrect = True Then
> Exit Sub
> End If
>
> MYpassword = InputBox("Enter Password")
>
> If MYpassword = "123'" Then
> PasswordCorrect = True
> Sheets("Sheet2").Select 'Put the name of your protected sheet here
> Else
> Sheets("Sheet1").Select
> PasswordCorrect = False
> End If
> End Sub
>
>  --
> Join official facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES (1120+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> 6) Jobs posting is not allowed.
>
> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To post to this group, send email to excel-macros@googlegroups.com.
> To unsubscribe from this group, send email to
> excel-macros+unsubscr...@googlegroups.com.
>
>
>



-- 
*Regards*
* *
*Ashish Koul*


*Visit*
*http://www.excelvbamacros.com/*
*http://www.accessvbamacros.com/*

P Before printing, think about the environment.

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

6) Jobs posting is not allowed.

7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.


<>

$$Excel-Macros$$ Masking Password in input box

[Hilary Lomotey]

Hi Exxperts

 I got this code to protect a worksheet, which was exactly what i was
looking for only that entering the password into the input box  is unmasked
so everyone standing by can see your password.

can i get a code to mask the password input?. or better still another code
to ask for password (masked) when a particular worksheet is acessed. thanks


Private Sub Worksheet_Activate()
Static PasswordCorrect As Boolean
Dim MYpassword As String
If PasswordCorrect = False Then
Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet
you want, just change the name)
ElseIf PasswordCorrect = True Then
Exit Sub
End If

MYpassword = InputBox("Enter Password")

If MYpassword = "123'" Then
PasswordCorrect = True
Sheets("Sheet2").Select 'Put the name of your protected sheet here
Else
Sheets("Sheet1").Select
PasswordCorrect = False
End If
End Sub

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

6) Jobs posting is not allowed.

7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.