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.


Reply via email to