Snasui Excel Forum

Code: Select all

Sub OpenWord_PWD()
      
    Dim wordapp
    Dim strFile As String
    strFile = "C:\D\OpenPWD.docx"
    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open strFile
    wordapp.Visible = True
  
    Dim DPDoc
    Dim DPApp
    Dim DPPath
    DPPath = "C:\D\OpenPWD.docx"
    Set DPApp = CreateObject("word.Application")
    DPDoc = DPApp.Documents.Open(DPPath)
    
    Dim YourOwnPassword As String
    YourOwnPassword = "12345"
    DPDoc = DPApp.Documents.Open(DPPath, PasswordDocument:=YourOwnPassword)

End Sub

Code: Select all

Sub OpenWord_PWD()
    Dim DPDoc As Object
    Dim DPApp As Object
    Dim DPPath As String
    Dim YourOwnPassword As String
    
    YourOwnPassword = "12345"
    DPPath = "C:\D\OpenPWD.docx"
    
    Set DPApp = CreateObject("Word.Application")
    Set DPDoc = DPApp.Documents.Open(Filename:=DPPath, PasswordDocument:=YourOwnPassword, _
        ReadOnly:=True)
    DPApp.Visible = True
End Sub