S
Sriram
Dear Friends,
I've a file using macro codings in our local server, which will be operated
by around 10 employees at a same time. Whenever each employee is opening the
file, there respective sheet(s) will be opened for them and other employee's
sheets will not be visible for them.
But the bug what I'm experiencing is that, whoever opens the file and if
they have some other excel file already opened in their computer and if they
are going to that fiel to see something, then the sheets which are visible
for the particulat employee is getting closed and not getting visible later
also. I don't know how to get rid of this BUG.
Somebody kindly help me. You can have a sample of my code as below.
Cur_User = Environ("UserName")
Select Case Cur_User
Case "tja001":
Disp_User = " Mr. Thandavakrishanan"
Sheets("Tower").Visible = True
Case "psu004":
Disp_User = " Mr. Pradeep"
Sheets("Tower").Visible = True
Case "mye001":
Disp_User = " Mr. Muralikrishnan"
Sheets("Murali").Visible = True
Case "aan002":
Disp_User = " Mr. Agilesh"
Sheets("Murali").Visible = True
Case "bba001":
Disp_User = " Mr. Baskaran"
Sheets("DG").Visible = True
Sheets("Servo").Visible = True
Case "kre001":
Disp_User = " Mr. Kamalanathan"
Sheets("AC").Visible = True
Sheets("FAS").Visible = True
Sheets("FES").Visible = True
Case "Sriram":
Disp_User = " Mr. Sriram"
Sheets("All Mat Data").Visible = True
Sheets("LogBook").Visible = True
Sheets("Murali").Visible = True
Sheets("Tower").Visible = True
Sheets("Shelter").Visible = True
Sheets("DG").Visible = True
Sheets("AC").Visible = True
Sheets("Servo").Visible = True
Sheets("FAS").Visible = True
Sheets("FES").Visible = True
End Select
Regards,
Sriram
I've a file using macro codings in our local server, which will be operated
by around 10 employees at a same time. Whenever each employee is opening the
file, there respective sheet(s) will be opened for them and other employee's
sheets will not be visible for them.
But the bug what I'm experiencing is that, whoever opens the file and if
they have some other excel file already opened in their computer and if they
are going to that fiel to see something, then the sheets which are visible
for the particulat employee is getting closed and not getting visible later
also. I don't know how to get rid of this BUG.
Somebody kindly help me. You can have a sample of my code as below.
Cur_User = Environ("UserName")
Select Case Cur_User
Case "tja001":
Disp_User = " Mr. Thandavakrishanan"
Sheets("Tower").Visible = True
Case "psu004":
Disp_User = " Mr. Pradeep"
Sheets("Tower").Visible = True
Case "mye001":
Disp_User = " Mr. Muralikrishnan"
Sheets("Murali").Visible = True
Case "aan002":
Disp_User = " Mr. Agilesh"
Sheets("Murali").Visible = True
Case "bba001":
Disp_User = " Mr. Baskaran"
Sheets("DG").Visible = True
Sheets("Servo").Visible = True
Case "kre001":
Disp_User = " Mr. Kamalanathan"
Sheets("AC").Visible = True
Sheets("FAS").Visible = True
Sheets("FES").Visible = True
Case "Sriram":
Disp_User = " Mr. Sriram"
Sheets("All Mat Data").Visible = True
Sheets("LogBook").Visible = True
Sheets("Murali").Visible = True
Sheets("Tower").Visible = True
Sheets("Shelter").Visible = True
Sheets("DG").Visible = True
Sheets("AC").Visible = True
Sheets("Servo").Visible = True
Sheets("FAS").Visible = True
Sheets("FES").Visible = True
End Select
Regards,
Sriram