Thread
:
Password to Unhide VeryHidden Sheets
View Single Post
#
4
Posted to microsoft.public.excel.programming
Dave Peterson
external usenet poster
Posts: 35,218
Password to Unhide VeryHidden Sheets
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
Reply With Quote
Dave Peterson
View Public Profile
Find all posts by Dave Peterson