Hello everybody,
I would like to rename a project after removing the copy protection (through VBA).
The renaming only works if the copy protection of the project is removed before the macro run.
When I remove the copy protection through the macro I get the error that the attribute (which I want to change) is set on the "Read Only" flag.
What am I missing here?
Sub rename_project()
'Dim StartObjProj As ObjectItem
Dim pProj As Project
Dim str1 As String
Dim str2 As String
'Set StartObjProj = Application.Selection.Item(1)
Set pProj = Application.Selection.Item(1)
str1 = pProj.Attributes.Find(5)
str2 = " (IN BEARBEITUNG)"
pProj.State = aucProjectStateShared
pProj.Attributes.Find(5).WriteProtected = False
pProj.Attributes.Find(5).Value = str1 & str2
pProj.Store
End Sub
greeting
Uwe Steden