Printing DOC Bypass readonly popup

[meano]

I print my worksheet and a word doc that go with my worksheet.
I would like to bypass the readonly popup I get for the word doc.
Can i code in my password so i will not get the popup or what is the best way not to get the readonly box for word.

Here is the code i have now.

Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets("LOTO").PrintOut

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open _
("C:\CBF Operations\CBF LOTO PROGRAM\LOTO PROCEDURES
\FILTERS\WEST TEXAS RAW FILTERS NORTH .doc")

wrdDoc.PrintOut
wrdDoc.Close
wrdApp.Quit
End Sub

 

[meano]

I found what works here it is

Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets("LOTO").PrintOut

SetAttr "C:\path of doc\test.doc", vbReadOnly + vbHidden
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open _
("C:\path of doc\test.doc")

wrdDoc.PrintOut
wrdDoc.Close
wrdApp.Quit

End Sub