Lists of authorised users

[RichardMGreen]

Afternoon all

I have a spreadsheet that is open to all users but certain "superusers" have additional tabs available to them
I'm trying to write a peice of code triggered by the auto_open event but it seems a bit long-winded. I'm using a variation of an "If" statement which looks like this :-

If application.username="username goes here" or application.username="username goes here" then
    Sheets("4-weekly ave").Visible = True
    Sheets("weekly stats").Visible = True
endif

As the list of users is growing, I get the feeling there is a better way of checking if the user is a "superuser" rather than enlarging the IF statement above. For a normal user, the two sheets named above are "veryhidden" so they can't go into Format/sheets/Unhide.

Any ideas will be greatly appreciated.

 

[hatman]

What I do in cases like this is to place a named range in a Very Hidden sheet that contains the super users. When you want to edit the list of suerusers, you simply insert of remove cells/names in the list.

Then I have code that looks like this:

dim flag as boolean
dim item as range

flag = false

for each item in range("Superusers")

  if item.value = Environ("username") then

    flag = true

    exit for

  end if

next item

If flag then 
    Sheets("4-weekly ave").Visible = xlsheetvisible 
    Sheets("weekly stats").Visible = xlsheetvisible

else

    Sheets("4-weekly ave").Visible = xlsheetveryhidden 
    Sheets("weekly stats").Visible = xlsheetveryhidden

endif

 

[RichardMGreen]

Thanks hatman

Had to modify it slightly for two different types of groups but it's now working fine!