File Open - force Read Only for specified users

[Gerald Higgins]

Hi all, did a search, found this
http://www.mrexcel.com/forum/showthread.php?t=370089&highlight=force+read
which got me half way there, but looking for help on the last bit.

I've got a file which I would like to set up so that certain specified users can only open it as read only, while other specified users can open a read/write version.

I don't really mind which way round this works - either I would specify the read only users, and all others would be read/write by default, OR I'd be happy to specify the users who could read/write, and all others would be read only by default.

I adapted the code in that other thread to this,

If Not ActiveWorkbook.ReadOnly Then 
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

which works. I've incorporated it into the Auto Open routine, and it correctly makes the file read only.

What I want to do is add something that says effectively...

If user = John Smith, Jane Brown
open the file as read only
else

and I need help with the bit in bold.

Any ideas ?

Thanks in advance...

 

[john316swan]

The code here did not work for me...but I got this to work using Environ username. Take care.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
If Environ("username") <> "[COLOR=#ff0000][B]jswan[/B][/COLOR]" Then
    If Not ActiveWorkbook.ReadOnly Then
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    End If
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub