Users' Authorizations

[Excello]

Hi All,

I have created a workbook having 20 worksheets, Assume that the sheet names starts by "A" to "T". In brief, I want to authorize users to certain worksheets for example:
- User Name "AAA" with Password "XXX" To gain access from Sheet "A" To "J"
- User Name "BBB" with Password "YYY" To gain access from Sheet "K" To "R"
- User Name "ADMIN" with Password "ZZZ" To gain access To all Worksheets.

Is it doable, Can anyone help me to make it happen.

Appreciate your help.
Excello

 

[skadan]

you could maybe try hide/unhiding sheets depending on a password/log-in. Something like:

Sub filterpass()
'inputbox
Dim message, title, password
message = "Enter your password ..."
title = ""
password = InputBox(message, title)
'user
If password = "yourpassword" Then Application.Run "'sheet.xls'!access"
End Sub

Sub access() 'user
ActiveWorkbook.Unprotect
Sheets("sheet1").Visible = True
ActiveWorkbook.Protect
End Sub

adding other password(s) as necessary

~ Mike