View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
 
Posts: 2,337
Default Selective Viewing

Right click master sheet tabview codeinsert thisSAVE
add a sheet deactivate to set the password.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case UCase(Range("a2"))
Case Is = "JOE": x = 10
Case Is = "BILL": x = 2
Case Else: MsgBox "Not Authorized"
End Select
With Sheets("sheet" & x)
..Select
..Unprotect Password:=UCase(Range("a2"))
End With
End Sub

--
Don Guillett
SalesAid Software

"MBlake" wrote in message
...
Hi,
Is it possible to require a logon and password to access a worksheet and
then display the worksheet relevant to the user?. For example, User A
enters their password and can then view worksheets 7 to 10, User B logs in
and can access Worksheets 7 plus sheets 11 to 12.

If this is possible I'd be grateful for any web links or recommended
reading.

Thanks,
Mickey