Password to Unhide VeryHidden Sheets

[ryguy7272]

Code is not working; must be due to the If...Then. I'm tired now and can't
see the error in the logic. Can someone point out the mistake?


Private Sub CommandButton1_Click()
Dim i_pwd As String
Dim pwd As String
'#1
If pwd = "showandy" Then
i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
Select Case i_pwd
Case pwd
Worksheets("Andy").Visible = True
Sheets("Andy").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide
Sheet..."
End Select
End If
Exit Sub


'#2
If pwd = "showchris" Then
i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
Select Case i_pwd
Case pwd
Worksheets("Chris").Visible = True
Sheets("Chris").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide
Sheet..."
End Select
End If
Exit Sub


'#3
If pwd = "showdavid" Then
i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
Select Case i_pwd
Case pwd
Worksheets("David").Visible = True
Sheets("David").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide
Sheet..."
End Select
End If
Exit Sub
End Sub

Regards,
Ryan---

 

[Dave Peterson]

Maybe...

Private Sub CommandButton1_Click()
Dim i_pwd As String

i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
if i_pwd = "" then
exit sub
end if

Select Case lcase(i_pwd)
Case is = "showandy"
Worksheets("Andy").Visible = True
Sheets("Andy").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select

Exit Sub

(Untested, uncompiled.)

 

[shahzad4u_ksa]

Maybe...

Private Sub CommandButton1_Click()
Dim i_pwd As String

i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet....")
if i_pwd = "" then
  exit sub
end if

Select Case lcase(i_pwd)
   Case is = "showandy"
        Worksheets("Andy").Visible = True
        Sheets("Andy").Select
   Case Else
        MsgBox "Incorrect password; no action taken.", vbInformation, _
             "Unhide Sheet..."
End Select

Exit Sub

(Untested, uncompiled.)









--

Dave Peterson- Hide quoted text -

- Show quoted text -

Sorry to jumping in your thread.

your code is working perfect, but when input box is appearing and
asking for password, when you type anything, it is appearing alphabet,
i.e. showandy.

is there any way to change cheractors to ********** (STARIC), so
no one can see what is the password has entered.

Best regards.

 

[Dave Peterson]

Not using an inputbox.

You could design your own userform and hide the characters, though.

 

[ryguy7272]

Thanks everyone!! There still appears to be a problem though (and I am not
tired anymore). I went with Dave's suggestion and modified the code
slightly; it now looks like this:
Private Sub CommandButton1_Click()
Dim i_pwd As String

i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
If i_pwd = "" Then
Exit Sub
End If
Select Case LCase(i_pwd)
Case Is = "showjim"
Worksheets("Jim").Visible = True
Sheets("Jim").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select
Exit Sub


i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
If i_pwd = "" Then
Exit Sub
End If
Select Case LCase(i_pwd)
Case Is = "showkari"
Worksheets("Kari").Visible = True
Sheets("Kari").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select
Exit Sub


i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
If i_pwd = "" Then
Exit Sub
End If
Select Case LCase(i_pwd)
Case Is = "showlee"
Worksheets("Lee").Visible = True
Sheets("Lee").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select

Exit Sub


End Sub


The problem is as follows. If I enter Jim's password, 'showjim' the code
works fine, and Jim's Sheet is displayed. If I try to use one of the other
two passwords, neither page is displayed. It has something to do with the
loop; Jim comes first in the code and so the macro seems to recognize this
but nothing else. Anyone see the problem?

As always, thanks a ton!!
Ryan---

 

[Dave Peterson]

Option Explicit
Private Sub CommandButton1_Click()
Dim i_pwd As String

i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
If i_pwd = "" Then
Exit Sub
End If

Select Case LCase(i_pwd)
Case Is = "showandy"
Worksheets("Andy").Visible = True
Sheets("Andy").Select

Case Is = "showkari"
Worksheets("Kari").Visible = True
Sheets("Kari").Select

Case Is = "showlee"
Worksheets("Lee").Visible = True
Sheets("Lee").Select

Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select

Exit Sub

 

[ryguy7272]

That's it!! Thanks so much Dave!! One more thing, it probably makes sense
to store the code in a Module, as opposed to the Sheet, right. The code in
the Module can be protected with a password itself, but the sheet can't. I
mean, a user can simply right-click and see the Sheet code, right.

Regards,
Ryan---

 

[Dave Peterson]

If you protect the project within the VBE, then the code in a general module or
behind the worksheet or anywhere else in that project will have the same
protection.

And since this code is associated with that commandbutton on the the worksheet,
it belongs behind that worksheet.

Try protecting the project, then save, close and reopen the workbook. Then try
to view your code.

That's it!! Thanks so much Dave!! One more thing, it probably makes sense
to store the code in a Module, as opposed to the Sheet, right. The code in
the Module can be protected with a password itself, but the sheet can't. I
mean, a user can simply right-click and see the Sheet code, right.

Regards,
Ryan---