VBA code please

Submitted by Hemanth Kumar on
Microsoft Project

Member for

20 years 7 months
Member for 20 years 8 months
Submitted by Niek Zonneveld on Tue, 2007-11-27 04:50
Permalink

My pleasure Hemanth,



If you always want to apply this for the entire project you should replace "ActiveSelection.Tasks" by "ActiveProject.Tasks" in the code I’ve sent you earlier.



H.T.H.



Niek.

Member for

23 years
Member for 23 years
Submitted by Hemanth Kumar on Thu, 2007-11-22 07:14
Permalink

Thank You Niek

Dear James



My Project if not opened without enabling macros will be shown as a dis organised crap without any bars



So The viewer has to enable macro to view it. which will trigger a series of other macros which prevent edit,,print,, save,, show copy right informations etc etc



i dont want somebody even my client copy my plan and reuse it






Member for

19 years 5 months
Member for 19 years 5 months
Submitted by James Griffiths on Wed, 2007-11-21 08:32
Permalink

There is no need to write a macro. Just highlight all the activities, click on the Task Information icon,General tab and then tick the "Hide Task Bar" box.



HTH.



James.

Member for

20 years 7 months
Member for 20 years 8 months
Submitted by Niek Zonneveld on Mon, 2007-11-19 15:52
Permalink

Hemanth,

This module removes all the bars for selected tasks:



*****************************************

Sub Hide_bars()



Dim t As Task



For Each t In ActiveSelection.Tasks



t.HideBar = YES



Next t



End Sub

******************************************



This is a very simple example. You’ll need to write error handling around it to make it robust.



H.T.H.



Niek.