Changing Read Only/ Read write access depending on username

[RossTrepleton]

Hi,

i have an excel production planning tool on a network.
I want certain users (3) to be able to open the workbook and edit the data, whilst I want everyone else to be able to open the workbook.

I think this can be done using ChangeFileAccess but I am struggling.

Any ideas on what I need to do?

Thanks,

Ross

 

[GTO]

Not tested, try:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()<br>    <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Environ("Username") = "SmithJ" _<br>    And <SPAN style="color:#00007F">Not</SPAN> Environ("Username") = "SmytheK" <SPAN style="color:#00007F">Then</SPAN><br>        ThisWorkbook.ChangeFileAccess (xlReadOnly)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[RossTrepleton]

Thanks!

that works perfectly.

 

[RossTrepleton]

Sorry- I was too quick to say this was working!
Unfortunately since I have put this code in everytime I make a change to the workbook it crashes!

Any more ideas?

Thanks,

Ross