limit access to worksheets?

sub auto_open()
    Indx = 1
    Do
    EnvString = Environ(Indx)
    If LCase(Left(EnvString, 9)) = "username=" Then    'Lan user id
        regUserID = Right(EnvString, Len(EnvString) - 9)
    End If
    Indx = Indx + 1
    Loop Until EnvString = ""
    Indx = 0
'
    If regUserID <> "BOSSM" And regUserID <> "MXJ124" And regUserID <> "JETTED" Then
       Sheets("estimate").Visible = xlHidden
       Sheets("Start").Visible = xlVeryHidden
       Sheets("milestones").Visible = xlHidden
       Sheets("Lesley Summary").Protect password:="Marc"
       Sheets("Marc Summary").Protect password:="Marc"
       Sheets("Mike Summary").Protect password:="Marc"
       Sheets("Gilles Summary").Protect password:="Marc"
       Sheets("Pierre Summary").Protect password:="Marc"
       Sheets("Steve Summary").Protect password:="Marc"
       Sheets("Work Progress").Protect password:="Marc"
    End If
end sub

Good afternoon JENNYC

I have a template available which allows for this type of situation within Excel. You, as administrator, control the access rights and assign users' permission to view certain sheets on either a read / write or read only basis. Thus, the sheets a user can see on opening are determined by the administrator. It doesn't recognise each user automatically, but each user is required to "log-in" with their own password.

If you would like to use this then send me a private message with your e-mail address. The file comes with full instructions.

HTH

DominicB

Originally Posted by dominicb

Good afternoon JENNYC

I have a template available which allows for this type of situation within Excel. You, as administrator, control the access rights and assign users' permission to view certain sheets on either a read / write or read only basis. Thus, the sheets a user can see on opening are determined by the administrator. It doesn't recognise each user automatically, but each user is required to "log-in" with their own password.

If you would like to use this then send me a private message with your e-mail address. The file comes with full instructions.

HTH

DominicB

Hello. I am in need of this worksheet as well. Would you be so kind as to send me a coy as well. Email sent in pm.

Sincerely
Jmarc