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:
>>
>>> [image: Boxbe] <https://www.boxbe.com/overview> This message is
>>> eligible for Automatic Cleanup! (koul.ash...@gmail.com) Add cleanup
>>> rule<https://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DEAhqTefjyKGunC5hFoTq5%252BWFZ95ApUtjEkRyhtsYKB20ij7g2B8ijm4PAc72RgQYJUF0HGMmpiQ25qllkaSYd26DLxpP5PQez%252F1EmQRvxsxKS11aM9gdD5R3gAvH7EDkMX19TuZ1d%252BZeHUOzswHudw%253D%253D%26key%3DHbjLn3NuDw0ApID%252BgCTtAXzryGkHGjAYMrnZz6VnZ78%253D&tc=12741655184_1073105896>|
>>> More
>>> info<http://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
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>>
1061 New and Check Password.xlsm
Description: Binary data
