VBA to save Word as Read-Only

Anyone know how to save the active document as read-only using VB? ActiveDocument.ReadOnly = True doesn't work because the document is already open.

Thanks,
Dan

Actually, I figured out a way to do it:
ActiveDocument.WritePassword = "your_password_here"

This will then cause the document to open up with three options: open (to be able to edit), read-only, and cancel. To be able to open the file, you have to enter the password.

Of course, make sure to protect your code otherwise, anyone could just look at the code and see the password to edit the document.

 

I recorded a macro and checked the "Read Only Recommended"
Then looked @ the code.
I saw:

ActiveDocument.ReadOnlyRecommended = True

 

Actually, this only recommends that the user opens as read only (I believe). It does not force them to open it as read only. The above code will force them to enter the password if they want to edit it.