Difficult "read-only" question

[mae0429]

Hi,

I'm trying to come up with a way to save an updated version of a read-only file. That is to say, there is a read-only protected file on a server that needs to be updated once a month. Is there a way that certain owners (myself) can automate the whole "uncheck read-only, save updated file over old file, then recheck read-only" process?

To put it in context, I have code that takes a master file and splits certain sheets up into separate books. I need to save those newly-created books as files that currently exist in read-only form.

Thanks, and good luck!
-Matt

 

[Oaktree]

It's probably easier for you (or your IT department) to set the permissions of the *folder* (instead of the file) accordingly.

Just give you and whoever else write access to the folder and everyone else read only access.

 

[Smitty]

Welcome to the Board!

I did some messing around with that kind of thing a few years ago. Here's an example of how you can change the status:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> SetAsReadOnly()<br>    <SPAN style="color:#007F00">'   Test for PC User Name</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> strUser <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>        strUser = Environ("USERNAME")<br>        <SPAN style="color:#007F00">'   MsgBox strUser</SPAN><br>        <br>     <SPAN style="color:#007F00">'  Set Read only File Access for each Office's specific version</SPAN><br>    <SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> strUser<br>        <SPAN style="color:#007F00">'   Full Workbook Access</SPAN><br>        <SPAN style="color:#00007F">Case</SPAN> <SPAN style="color:#00007F">Is</SPAN> = "YourUserName", "AnotherUser"<br>            <SPAN style="color:#00007F">If</SPAN> ActiveWorkbook.ReadOnly Then _<br>                ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin"<br>        <SPAN style="color:#007F00">'   Limit Access</SPAN><br>        <SPAN style="color:#00007F">Case</SPAN> <SPAN style="color:#00007F">Is</SPAN> <> "YourUserName"<br>            <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> ActiveWorkbook.ReadOnly Then _<br>                ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin"<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Select</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

(Sup Matt!)

 

[mae0429]

Yeah, that would do it. Way to take the VBA fun out of it...

Just kidding, thank you for the help!

 

[mae0429]

Smitty,

That's pretty neat...I'll play around with that on the side and see where it takes me. It'd be useful to have for other situations.

Thanks a million!