Change file permissions in VBA

[VorLag]

I have several files that I don't want anyone to edit or even look at. I create a version for them to edit and keep my version locked. However, I want the macro to remove permissions set while it's creating the other version. I already have a macro that creates their version, but I want to add the part where it removes permissions. Is there a way to do that?

 

[John_w]

Perhaps the Cacls command, which you can call from VBA with the Shell function.

 

[VorLag]

I'm trying this:

Sub RemovePermissions()
    Dim myPermission As Office.Permission
    Set myPermission = ThisWorkbook.Permission
    myPermission.Enabled = False
End Sub

But, it doesn't do anything. I tried to set permissions using a similar method, but that also didn't work. I can't find a way to use the Shell function to do this, do you have a snippet somewhere? I haven't been able to find one that I could even modify.

 

[VorLag]

I found that if you apply permisions using a macro, you can remove them using a macro. Here's the site where I found macros that work:

http://www.java2s.com/Code/VBA-Excel-Access-Word/Application/Addusers.htm

 

[VorLag]

One more thing - if you want the macro to work on other workbooks, you need to change "ThisWorkbook" to "ActiveWorkbook". Just in case someone else finds this macro useful.