Multiple Users to open a file READ ONLY immediately?

[FinancialAnalystKid]

How can I share a file on a network drive where a user can open it ONLY as a read only without going through process of clicking 'read only' on a file that is protected?

Adding an 'extra step' to a simple process like opening an excel file has caused many non-experienced excel users a little frustration both on their end and my end.

I want a file that they can open, and it immediately opens for them as a READ ONLY while when I open it, I can do administrative work on it at the same time, etc.

Thanks!

 

[Sthrncali]

This worked for me in Excel 2007:

Private Sub Workbook_Open()
Dim myname As String
Dim myFile As String
myname = Environ("USERNAME")
myFile = "C:\Documents and Settings\jharris90\Desktop\Test.xlsb"
If myname <> "YourUserName" Then
Workbooks.Open Filename:=myFile, ReadOnly:=True
End If
End Sub

 

[FinancialAnalystKid]

This worked for me in Excel 2007:

Private Sub Workbook_Open()
Dim myname As String
Dim myFile As String
myname = Environ("USERNAME")
myFile = "C:\Documents and Settings\jharris90\Desktop\Test.xlsb"
If myname <> "YourUserName" Then
Workbooks.Open Filename:=myFile, ReadOnly:=True
End If
End Sub

Does this have to go into every worksheet in the workbook?

 

[Sthrncali]

No it goes in the Workbook_Open event code.

Open VB Editor and double click the Object "This Workbook" underneath all the sheet names. Paste the entire code in that window.