đại loại code sẽ như thế này:
Sub SetPassword(AppWord As Word.Application, sFile As String, sPassword As String)
Dim dFile As Word.Document
On Error Resume Next
Set dFile = AppWord.Documents.Open(sFile)
If Err.Number <> 0 Then
MsgBox "Loi: " & sFile & " " & Err.Description
End If
dFile.Password = sPassword
dFile.Save
dFile.Close
End Sub
