Read-Only Word 문서 (VBA)를 편집하는 방법

Question

여러 클라이언트에서 Word 문서를 정기적으로 가져오고 때로는 '읽기 전용'모드로 나에게 보냅니다. '보기> 문서 편집'을 수동으로 실행하는 것은 그리 큰 문제는 아니지만 내 VBA 코드에서이를 수행하는 방법을 찾지 못하는 것 같습니다.

문서를 편집 가능한 것으로 열거 나 문서를 열어 편집 가능한 것으로 전환하면 내 필요에 충분할 것입니다.

'readOnly = false'로 설정된 문서는 'readOnly recommended'(Document.Open에서 MS 매뉴얼 페이지를 읽었을 때)에 설정된 것처럼 보이지 않습니다.

CONTEXT : 기본적으로 문서가 열리는 '읽기 모드'를 끄는 문제가 발생했습니다. 이 질문과 답변 here을 게시했습니다.

Answer 1

아래 코드는 프로 시저에 제공된 인수에 따라 ReadOnly 특성을 True 또는 False로 설정하여 닫힌 파일의 ReadOnly 특성을 변경합니다.

Private Sub SetReadOnlyProperty(Fn As String, _ 
           ByVal ReadOnly As Boolean) 
    ' 21 Nov 2017 

    Dim Fso As Object 
    Dim Doc As Object 

    Set Fso = CreateObject("Scripting.FileSystemObject") 
    Set Doc = Fso.GetFile(Fn) 

    If (Doc.Attributes And vbReadOnly) <> Abs(Int(ReadOnly)) Then 
     Doc.Attributes = Doc.Attributes Xor vbReadOnly 
    End If 
End Sub 

이 절차를 수행하려면 MS Scripting Runtime DLL에 액세스해야합니다. VBE 창에서 도구> 참조에서 Miscrosoft Scripting Runtime 상자를 선택하여이 액세스를 활성화합니다. 아래 함수를 호출하는 방법의 예입니다. 제공된 파일이 없으면 오류가 발생합니다.

Private Sub TestReadOnly() 
    SetReadOnlyProperty "H:\Test Folder\Test File.docx", False 
End Sub