Various

It’s good idea.



If I do this to my boss, he will kill me :)



Good luck

Ok, you need not chage the ’save’ code.

that make no save if the user do not know the password.

But make sure when you send this project to others, the file is saved with reversed task name.

But other change made by the user will also be saved

Hi,



The above code is just a demo,to make it functional,you need modify the previous ’save’ code so after the taskname was reversed , the porject will automatically saved without asking for a password.

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

MSP can not give you these ability.

you can

1. use PDF for distribution

2. export to excel for distribution

3. Put you .mpp in a folder where all others have only read access right.

4. Use P3 instead

Quick solution is to issue Adobe Acrobat PDF files of the views that you want others to see and do not let them have access to the project plan.



It will upset peopple - as they cannot interfere - but it does protect everything.



I cannot think of a way to do as you request as, like you say, copying removes most of the protection.



Anyone else know of a way?



Cheers



Nige