LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 17
Default not allowing users access to spreadsheet without correct names

On my spreadsheet I have a user form that loads up where their are two text
boxes on for the First Name and another for the Last Name. With the help of
Tom I have created a macro that takes the input from the text boxes and takes
the user to their corresponding range.

The problem I am having is if an incorrect user name is entered such as "Bob
Dole" due to my login button unprotecting the sheet they are given acess to
every range and can makes changes. Here is the code I have for my login
button. Can someone help me so that when a name is entered that doesn't
correspond to a range that the user has no access to the worksheet and is
exited out of excel.

Private Sub Login_click()
With UserInterface
Worksheets("Employee Tracker").Unprotect Password:="testpass"
Range("A5:N25").Select
Selection.Locked = True
On Error Resume Next
Set rng = Worksheets("Employee Tracker").Range( _
.TextboxFirst.Text & "_" & .TextBoxLast.Text)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Bad name, quitting"
Unload UserInterface
ThisWorkbook.Close Savechanges:=False
End If
End With
Application.Goto rng, True
Unload UserInterface
Call Macro3
End Sub

Thanks in advance
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Allowing different users access to different worksheets tomcon087 Excel Discussion (Misc queries) 1 April 23rd 10 01:12 PM
How can I track users who access a spreadsheet? jBen Excel Discussion (Misc queries) 2 April 14th 09 09:41 PM
Allowing users to edit selected ranges only Lee D Excel Discussion (Misc queries) 1 January 5th 07 08:57 PM
allowing users to change their row ONLY debra Excel Discussion (Misc queries) 1 December 4th 05 03:08 PM
Excel Spreadsheet from Access. List of names changes as names are Gordy w/Hi Expectations Excel Discussion (Misc queries) 1 October 21st 05 03:30 AM


All times are GMT +1. The time now is 10:53 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"