Table of contents
Collapse the table of content
Expand the table of content

Project.ReadOnly Property (Project)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

True if a project has read-only access. Read-only Boolean.


expression. ReadOnly

expression A variable that represents a Project object.


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" 
 FileSaveAs Path &; PathSeparator &; NewName 
 End If 
 Next P 

End Sub
© 2018 Microsoft