Project.Subproject.ReadOnly.md

title	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Subproject.ReadOnly property (Project)	project-server	Project.Subproject.ReadOnly	a42bc4d7-bd50-5846-76c8-27c32713bfab	06/08/2017	medium

Subproject.ReadOnly property (Project)

True if changes in the subproject affect its master project. Read/write Boolean.

Syntax

expression.ReadOnly

expression A variable that represents a Subproject object.

Example

The following example copies projects with read-only access into new files with read-write access.

Sub CopyReadOnlyFiles() 
 
 Dim P As Project ' Project object used in loop 
 Dim OldName As String ' Name of project 
 Dim Path As String ' File path to project 
 Dim NewName As String ' New name of project 
 
 ' Check each open project for read-only access. 
 For Each P In Application.Projects 
 If P.ReadOnly Then ' See if project has read-only access. 
 OldName = P.Name ' Store its name. 
 Path = P.Path ' Store its path. 
 ' Create a new name for the file and save it. 
 NewName = "New " & Left(OldName, Len(OldName) - 4) & ".MPP" 
 P.Activate 
 FileSaveAs Path & PathSeparator & NewName 
 End If 
 Next P 
 
End Sub

[!includeSupport and feedback]