Thread
:
Unhide Worksheet with Login UserForm
View Single Post
#
4
Posted to microsoft.public.excel.programming
RyanH
external usenet poster
Posts: 586
Unhide Worksheet with Login UserForm
Thanks for the quick response guys! That syntax fixed that problem. Now I
have a different error: Run-time Error '1004' Method 'Sheets' of object
'_Global' failed. Here is my updated code:
Private Sub cmbLogin_Click()
Select Case cboUserName
Case "Peter Maida"
If tbxPassword = "peterm2" Then
Workbooks("CALCULATOR
11-5-2007.xls").Worksheets("QUOTE").Visible = True
With Sheets("QUOTE") '<===ERROR ERROR
.Unprotect Password:="AdTech"
.Range("F3").Value = "Peter Maida Ext. 208"
.Range("F4").Value = "E-mail:
"
.Protect Password:="AdTech"
End With
Unload Me
Exit Sub
Else
MsgBox "YOUR MEMORY IS IMPRESSIVE! That's NOT the right
password. Try agian.", vbCritical
With tbxPassword
.Value = ""
End With
End If
End Select
End Sub
I have confirmed the password is correct. Any other ideas?
"Ken" wrote:
Ryan
I think it should just be
Workbooks("CALCULATOR 11-5-2007.xls").Worksheets.Visible = True
Good luck.
Ken
Norfolk, Va
On Jan 4, 11:11 am, RyanH wrote:
I have a UserForm that is shown when I open a workbook. The UserForm has a
UserName ComboBox, Password TextBox, Login CommandButton, and a Cancel
CommandButton. I only want .Sheets("QUOTE") to Unhide when this particular
user clicks the Login button, how do I do that? This is what I got so far,
but I am getting an Error.
Note: I don't know if this helps but I use this code to Hide all the
worksheets, when I close the workbook.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Windows("CALCULATOR 11-5-2007.xls").Visible = False
End Sub
Private Sub cmbLogin_Click()
Select Case
Case "Peter Maida"
If tbxPassword = "peterm2" Then
Workbooks("CALCULATOR 11-5-2007.xls").Worksheets.Visible =
xlSheetHidden '<===ERROR ERROR
Sheets("QUOTE").Visible = xlSheetVisible
With Sheets("QUOTE")
.Unprotect Password:="AdTech"
.Range("F3").Value = "Peter Maida Ext.. 208"
.Range("F4").Value = "E-mail: "
.Protect Password:="AdTech"
End With
Unload Me
Exit Sub
Else
MsgBox "Try agian.", vbCritical
With tbxPassword
.Value = ""
.SetFocus
End With
End If
End Select
End Sub
Reply With Quote
RyanH
View Public Profile
Find all posts by RyanH