VBS를 사용하여 MS 프로젝트 파일을 읽기 전용으로 엽니 다.

Question

MS Project 파일을 읽기 전용으로 탐색기에서 열 수있는 빠른 방법을 찾으려고합니다. 나는 다음과 같은 코드를 사용 this tutorial를 사용하여 엑셀에서 같은 일을 수행하기 위해 튜토리얼 헤드를 다음했다 :

'-------------------- Open as Read-Only.vbs -------------------- 
Option Explicit 

Dim app 'As Object 

Call OpenAsReadOnly 

Sub OpenAsReadOnly() 
    On Error Resume Next 
    Set app = GetObject(, "MSProject.Application") 
    If IsEmpty(app) Then Set app = CreateObject("MSProject.Application") 

    With app.Project.Open(WScript.Arguments(0)) 
     If Not .ReadOnly Then .ChangeFileAccess 3 'xlReadOnly 
     app.Visible = True 
    End With 
End Sub 

MS 프로젝트 깜박 :

'-------------------- Open as Read-Only.vbs -------------------- 
Option Explicit 

Dim app 'As Object 

Call OpenAsReadOnly 

Sub OpenAsReadOnly() 
    On Error Resume Next 
    Set app = GetObject(, "Excel.Application") 
    If IsEmpty(app) Then Set app = CreateObject("Excel.Application") 

    With app.Workbooks.Open(WScript.Arguments(0)) 
     If Not .ReadOnly Then .ChangeFileAccess 3 'xlReadOnly 
     app.Visible = True 
    End With 
End Sub 

하지만을 나는이 같은 프로젝트를 수정하려고 할 때 열어 본 다음 닫습니다. 어떤 아이디어?

Answer 1

MS 프로젝트 파일을 여는 방법은 app.FileOpenEx입니다. 첫 번째 매개 변수는 파일 이름이고 두 번째 매개 변수는 ReadOnly 옵션입니다. MS 프로젝트에는 ChangeFileAccess 메소드가 없습니다.

대신을 시도해보십시오

Dim app  
Set app = GetObject(, "MSProject.Application") 
If IsEmpty(app) Then Set app = CreateObject("MSProject.Application") 
app.FileOpenEx(WScript.Arguments(0), True)