Documento word sola lettura

Devo cambiare gli attributi di un documento WORD in modo da renderlo di sola lettura;
nel web ho trovato questa routine VBA:

Const ReadOnly = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.GetFile("C:\Scripts\Test.doc") 
If objFile.Attributes AND Read-write Then 
 objFile.Attributes = objFile.Attributes XOR Read-write 
End If

Ma non funziona; nel senso che il documento rimane di lettura/scrittura.
Come posso fare?

Ma cosa è Read-write ??

Semmai

Const ReadOnly = 1 
  Set objFSO = CreateObject("Scripting.FileSystemObject") 
  Set objFile = objFSO.GetFile("C:\Scripts\Test.doc") 
  objFile.Attributes = objFile.Attributes Or ReadOnly

ciao

semplicemente, come suggerito da AntonioG
setta objFile.Attributes a
Zero = Normale
1 = Sola Lettura

ciao

La Or serve a non perdere eventuali altri attributi impostati

Grazie per il suggerimento.