hide a table column

[#1]

I did search the forum before opening this, but didn't find an answer.

Requirement is to hide a straight & pivot table for all users except some AD IDs. Also in some tables, need to hide a particular column if not in the allowed AD ID list. How to achieve both? Thanks

[#2]

My aim to hide the coloumns is;

Do the basic calculation at one column and then use this result at the other columns repeatedly.

So removing, adding columns is not a solution for me, because I need to use the columns while they are hidden.

I give a sensible name to my calculated column and show to user. So there is no need to hide it any more, my problem is considered to be solved for now.

[Anonymous]

Here is a macro I'm using somitimes to hide column in pivot:

sub Squeeze
 call HideColumn("CH01", 2)
end sub
'
private sub HideColumn(ch, n)
 set ch = ActiveDocument.GetSheetObject(ch)
 ch.SetPixWidth (n-1), 0
end sub

[#4]

Thank you Michael, your code is helpfull !