Visual Basic - abrir word

con el siguiente codigo se abre word.
como seria el codigo si el documento tiene contraseña de apertura.

Private Sub clasemv_Click()
Dim xword
Dim DocDeWord As Object
Dim UnArchivo As String
UnArchivo = "C:\calcuelec\impresos\personal\mv.doc"
Set xword = CreateObject("Word.Application")
Set DocDeWord = xword.Documents.Open(UnArchivo)
xword.Visible = True

End Sub

Set DocDeWord = xword.Documents.Open(UnArchivo, , , , "password")