[Caribbean]

Hi Guys, I am new to this forum. Need your assistance. I saw an answer in a previous threads but the question was not anwered. In Excel I need to write a VB code to do the following:

Have 2 users in an Excel file. When it is now opened the user selects 1.Admin or 2. General User.


When it opens to an Admin user - enter a password and all worksheets would be displayed.


General User -enter a password and only 3 specific worksheets would be displayed.

Your help would be greatly appreciated.

[Advertisements]

heyyyyy

good idea

ill look into it

give me some time

Stu

[stu_design]

heyyyyy

good idea

ill look into it

give me some time

Stu

[stu_design]

hey put this code in the ThisWorkbook section

Private Sub Workbook_Open()


Dim userid As String
userid = InputBox("enter user id")
Dim password As String



If userid = "admin" Then
        password = InputBox("Enter Administrator password")
            If password = "enter" Then
                Sheets("Master").Visible = True
            Else
                MsgBox "Access Denied: and is closing"
                ThisWorkbook.Saved = True
                ThisWorkbook.Close
            End If

End If

If userid = "user" Then
    Sheets("Master").Visible = False
    password = InputBox("Enter Administrator password")
            If password = "john" Then
                Sheets("Master").Visible = False
            Else
                MsgBox "Access Denied: and is closing"
                ThisWorkbook.Saved = True
                ThisWorkbook.Close
            End If
End If
End Sub

Stu Design

PS HOPE U UNDERSTAND CODE IF NOT AND U CANT USE FOR UR PURPOSES POST BACK

Edited by stu_design, 02 June 2005 - 12:29 PM.

[Caribbean]

Thanks for your assistance Stu, it works very well.