But other change made by the user will also be saved

Hi,
1. insert a module and add the following code
=======================================================
Sub ReverseTaskName()
Dim lngTaskCount As Long
Dim i As Long
Dim strTaskName As String
Dim strRTaskName As String
Dim intLen As Integer
Dim j As Integer
On Error GoTo ter

lngTaskCount = ActiveProject.Tasks.Count
For i = 1 To lngTaskCount

strRTaskName = ""
strTaskName = ActiveProject.Tasks(i).name
intLen = Len(strTaskName)
For j = 1 To intLen
strRTaskName = strRTaskName & Right(strTaskName, 1)
strTaskName = Left(strTaskName, Len(strTaskName) - 1)
Next j
ActiveProject.Tasks(i).name = strRTaskName


Next i


ter:

End Sub
============================================================

2. under "thisproject" add the following code
----------------------------------------------------------
Private Sub Project_BeforeClose(ByVal pj As Project)
Module1.ReverseTaskName
End Sub
then add module1.reversetaskname to project_open,so it looks like:
---------------------------------------------------------
Private Sub Project_Open(ByVal pj As Project)
Set myapp.App = Application
Module1.ReverseTaskName

End Sub
-----------------------------------------------------------

HTH

Hi Hemanth Kumar,

Yes, anyone can choose disable the micro when opening the project.

You need more micros to sovle this issue.
the idea is when the user close the project, the micro will be run, it will make the porject un-readable. e.g. chage the task name ’start design’ to ’ngised trats’. then make another micro which will change ’ngised trats’ backto ’start design’ when opening the project.

if someone disable the micro when opening, he can’t read the project.

Macro can be disabled in two ways:
1. to rise-up the security of macro-alert (Marcor/security..)

2. to erase any code under VBA window (Atl+F11)

Lee

To delete the view from Tools/Organize still won’t work when some others open your file on his computer, I would suggest you to rename your view or filter, customized group etc with "AA", then they stays together at the top.

Lee

Hemanth Kumar,

I’ve sent you the project.

I can not find you email-address.

Yes, anyone can disable the micro when opening, but you can add some code, when save the project it will make the project un-readable,only you select to run the micro when opening, then it will restore the project.

I don’t think it’s worth to do all these.

They still can copy all the tasks, then paste to new project.

Anyway PDF is the best choice, or you need to use P3

Simple. Keep two copies. One, in a ’hidden’ folder being the real one, the second, available to your boss, being fake - you could change dates, durations, add in spurious activities - "Go to nightclub", "Sack the PM" etc.

Nasty, I know, unprofesisonal, I know but soo much fun!

Nige

I’m still thinking of this "save as" issue
you need VBA code
Try the following draft code:

1. insert a new class module named ’class1’
then add the following code:
===========================================
Public WithEvents App As Application

Private Sub App_ProjectBeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim strName As String
strName = InputBox("Password:")
If strName <> "z" Then
Cancel = True
MsgBox "you do not have the right to save" & Chr(10) & " Close the project without saving"
End If
End Sub
============================================
2. goto ’VBAPorject’ -> ’Microsoft Project Objects’ -> ’This project’
add the following code:
============================================
Dim myapp As New Class1

Private Sub Project_Open(ByVal pj As Project)
Set myapp.App = Application
End Sub
============================================

3. set password to protect this VBAProject

with this code, when you try to save/save as the project
there will be a popup window to check password(here the password is ’z’, you can change it).
if the password is not correct, the save operation will be canceled with a message - you do not have the right to save...

I think for most of the users, this kind of protection is enough. But this is still easy to crack, as you can find a lot of tools(software) to remove VBA protection, then you can see the above code.

hope this helps

You can not prevent others from using ’Save as’ in MSP
BTW why you need this.
you just need to protect your own copy or the copy for distribution