Posted to microsoft.public.excel.programming
|
|
Password to Unhide VeryHidden Sheets
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 wrote:
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---
--
RyGuy
"Dave Peterson" wrote:
Not using an inputbox.
You could design your own userform and hide the characters, though.
wrote:
On Jun 4, 3:03 am, Dave Peterson wrote:
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.)
ryguy7272 wrote:
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---
--
RyGuy
--
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
--
Dave Peterson
|