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

2012-10-26 Thread 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 schreiner_p...@att.net
Sender: excel-macros@googlegroups.com
Date: Thu, 25 Oct 2012 10:09:53 
To: excel-macros@googlegroups.com
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%253Dtc=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 * *

2012-10-25 Thread 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 resp...@gmail.com
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 koul.ash...@gmail.com 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 resp...@gmail.com 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 resp...@gmail.com wrote:

Hello  


Pls see attatched file as example 



On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey resp...@gmail.com 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 koul.ash...@gmail.com 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 resp...@gmail.com 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

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

2012-10-24 Thread 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.




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

2012-10-24 Thread 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 resp...@gmail.com 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.


image.png

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

2012-10-24 Thread 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 koul.ash...@gmail.com wrote:

  [image: Boxbe] https://www.boxbe.com/overview This message is eligible
 for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup 
 rulehttps://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DEAhqTefjyKGunC5hFoTq5%252BWFZ95ApUtjEkRyhtsYKB20ij7g2B8ijm4PAc72RgQYJUF0HGMmpiQ25qllkaSYd26DLxpP5PQez%252F1EmQRvxsxKS11aM9gdD5R3gAvH7EDkMX19TuZ1d%252BZeHUOzswHudw%253D%253D%26key%3DHbjLn3NuDw0ApID%252BgCTtAXzryGkHGjAYMrnZz6VnZ78%253Dtc=12741655184_1073105896|
  More
 infohttp://blog.boxbe.com/general/boxbe-automatic-cleanup?tc=12741655184_1073105896

 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 resp...@gmail.com 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 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 

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

2012-10-24 Thread 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 resp...@gmail.com wrote:

 Hello

 Pls see attatched file as example


 On Wed, Oct 24, 2012 at 4:45 PM, Hilary Lomotey resp...@gmail.com 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 koul.ash...@gmail.comwrote:

  [image: Boxbe] https://www.boxbe.com/overview This message is
 eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup 
 rulehttps://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DEAhqTefjyKGunC5hFoTq5%252BWFZ95ApUtjEkRyhtsYKB20ij7g2B8ijm4PAc72RgQYJUF0HGMmpiQ25qllkaSYd26DLxpP5PQez%252F1EmQRvxsxKS11aM9gdD5R3gAvH7EDkMX19TuZ1d%252BZeHUOzswHudw%253D%253D%26key%3DHbjLn3NuDw0ApID%252BgCTtAXzryGkHGjAYMrnZz6VnZ78%253Dtc=12741655184_1073105896|
  More
 infohttp://blog.boxbe.com/general/boxbe-automatic-cleanup?tc=12741655184_1073105896

 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 resp...@gmail.comwrote:

 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