Propriété Project.ReadOnly (Project)
Cette propriété a la valeur True si l’accès à un projet est en lecture seule. Boolean (en lecture seule).
Syntaxe
expression. Readonly
Expression Variable qui représente un objet Project .
Exemple
L’exemple suivant montre comment copier les projets dont l’accès est en lecture seule dans de nouveaux fichiers disposant de droits d’accès en lecture-écriture.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour