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

Puedes grabar una macro en Word y copiar el código:

Set DocDeWord = xWord.Documents.Open FileName:=UnArchivo, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="prueba", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto