User Access

[Sarah247]

Basically I want all my work teams Training Logs stored in one file.

I want a welcome screen which will have "buttons" with their names on that will take me to their training log.

I want them to update their training logs themselves but I don't want one employee looking at another employees training log.

All users have their own PC network log in.

Any chance someone can help me out? Or possibly make a dummy one that I can copy and modify?

My email address is [email protected]

You can add me to MSN messenger as well if you have it.

Many thanks for your help.

[Raunok]

That sounds like something better suited for MS Access, try that, i would help but i don't know that much about access,

As far as having each person only able to look at their own personal file, if they share they same exact login, then unfortunatly they have the exact same privaliges, unless you tied the access rights to a mac ID from the nic card in the computer, but thats waaay advanced for me, sorry

[mudraker]

Sarah

Here is one way to do it using a workbook open macro and no buttons.

It gets the users pc login ID
Hides all sheets except the Welcome sheet.
makes a sheet visible based on user ID.
It also makes all sheets visible for your ID.

By using the xlSheetVeryHidden command the sheets can not be unhidden from Excel


Private Sub Workbook_Open()
Dim wS As Worksheet
Dim sUserID As String

sUserID$ = Environ$("UserName")

For Each wS In Worksheets
If wS.Name = "Welcome" Then
wS.Visible = xlSheetVisible
Else
If sUserID = "Sarah247" Then
wS.Visible = xlSheetVisible
Else
wS.Visible = xlSheetVeryHidden
End If
End If
Next wS
Select Case sUserID
Case "Bill"
Sheets("Bill").Visible = xlSheetVisible
Case "Tom"
Sheets("Tom").Visible = xlSheetVisible
Case "Susan"
Sheets("Susan").Visible = xlSheetVisible
End Select
End Sub