VeryHide and Unhide by one click with dynamic range

[3nduranc3]

Hey All,</SPAN>

I came to a fancy idea, but I got stuck while trying to get it together. The basic problem is I would hide columns or rows or sheets with one click, and with another button I would like to unhide them. But when I hide one it should be Veryhidden, so that other users cant reveal it, only with using a macro.</SPAN>
I would use somthing like these int he macro:</SPAN>

Range selection

Dim Addr As String (???)

Addr = Intersect(Selection, ActiveSheet.UsedRange).Address</SPAN>
Range(Addr) = Evaluate("???")</SPAN>

Hide
Columns(Addr).Visible = xlVeryHidden</SPAN>
Rows(Addr).Visible = xlVeryHidden</SPAN>
Sheets(Addr).Visible = xlVeryHidden</SPAN>

Unhide</SPAN>Columns(Addr).Visible = True</SPAN>
Rows(Addr).Visible = True</SPAN>
Sheets(Addr).Visible = True
</SPAN>
Another question: Is it possible that if I hide column B, then I select columns A:C and I format something like color, font, etc., that column B ill not get formatted like A and C?</SPAN>

Thanks in advance!</SPAN>