專案) (Subproject.ReadOnly 屬性
True 是表示 如果子專案中的變更會影響其主專案。 可讀寫的 Boolean。
語法
運算式。ReadOnly
表達 代表 Subproject 物件的變數。
範例
下面範例會將唯讀存取的專案複製為讀寫存取的新檔案。
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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應