Environ nightmare

[DThib]

My Inventory workbook has been working well for months. It has a code in the opening that checks for my login ID. It will show a worksheet for me to edit but not anyone else.
2 questions:
1) How do I add 2 more names so they may edit.
2) The other users are now getting the macro slowing to look for the Environ name and then it crashes.
It isn't supposed to and didn't befor last week.

Help!
Code for workbook open below:

Private Sub Workbook_Open()
 Dim UsedRange
  
  Worksheets("Inventory").Activate
  ActiveSheet.UsedRange.Select
  ActiveSheet.UsedRange.Copy
  Range("A2").Select
  Worksheets("Empty Boxes").Activate
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Range("A2").Select
  Application.CutCopyMode = False
  Worksheets("Inventory").Activate
  Range("A1").Select
  Application.CutCopyMode = False
  Worksheets("Start").Activate
  Range("E3").Select
   Worksheets("Inventory").Visible = xlSheetVisible
  
    If Environ("username") = "dthibode" Then
    'testing - show the sheet
     Worksheets("Inventory").Visible = xlSheetVisible
     Else
    'standard user - completely hide sheet
     Worksheets("Inventory").Visible = xlSheetHidden
    End If
End Sub

Any ideas?

 

[Andrew Poulsom]

Example (change the names to suit):

If Environ("username") = "dthibode" Or Environ("username") = "Person2" Or Environ("username") = "Person3" Then

I'm sorry i don't know the answer to your second question.

 

[DThib]

Thanks, Andrew. I wanted t make sure the solution was what I thought.
The 2nd issue has me wondering what is happening. Does anyone else have an answer.
We are running Excel2003 and Windows XP sp3.0. The workbook sits on a server and is about 3.98mB large.

 

[JackDanIce]

Isn't this a repost of a thread from yesterday:
http://www.mrexcel.com/forum/showthread.php?t=539411

I'm sure the board rules ask this not be done, especially since the answer Andrew gave was exactly the same as what I replied with and gave you options on how to change to suit your needs

 

[Ruddles]

As an aside, you might want to remove the Dim for the variable UsedRange as it's not used anywhere in the procedure. The UsedRange which is referenced in the procedure is a property of the worksheet and not the variable which is declared.

(You might be aware of that but it may confuse the next person who has to modify the code. I try to avoid naming variables after other Excel or VBA keywords or just that reason.)

 

[Andrew Poulsom]

Thanks, Andrew. I wanted t make sure the solution was what I thought.
The 2nd issue has me wondering what is happening. Does anyone else have an answer.
We are running Excel2003 and Windows XP sp3.0. The workbook sits on a server and is about 3.98mB large.

Do your users get an error with Environ("UserName")?

 

[DThib]

Yes Andrew, they do. The workbook opens and pauses in the middle of the code then throws the error for that comment. It did not before.

JackDanIce,
This was not a repost. This was a request for the 2nd question to be answered after Andrew had confirmed my first question. But thank you for your attention to detail.
Debbie

 

[DThib]

As an aside, you might want to remove the Dim for the variable UsedRange as it's not used anywhere in the procedure. The UsedRange which is referenced in the procedure is a property of the worksheet and not the variable which is declared.

(You might be aware of that but it may confuse the next person who has to modify the code. I try to avoid naming variables after other Excel or VBA keywords or just that reason.)

Thanks, Ruddles
Useful information. I agree. No, I did not know that.
Andrew's answer was something I had tried but deleted because of the issue in Question 2. I meant no disrespect to him in my answer.

Debbie

 

[DThib]

Isn't this a repost of a thread from yesterday:
http://www.mrexcel.com/forum/showthread.php?t=539411

I'm sure the board rules ask this not be done, especially since the answer Andrew gave was exactly the same as what I replied with and gave you options on how to change to suit your needs

Jack,

If you posted to this thread, it is not visible. It is the same thread.

 

[Andrew Poulsom]

What's the error?