Protecting hidden columns

[mickygoalie]

Hi
I have a workbook that has hidden columns in. There is protection on the workbook to ensure that other users cannot see the hidden columns. I have just realised that if they save the document using a different file name they can then view the hidden columns. Is there anyway I can prevent this from happening?
Thanks for any help
Mickygoalie

 

[mole999]

are you using vba to set the password ?

 

[mickygoalie]

Nope not at the moment. I would do but not sure how to do it, if that is the best way to go

 

[mole999]

I was wondering how a different file name would make it available, and presumed you were using the workbook name in the protection

 

[mickygoalie]

Hi,
The spreadhseet i am using just has a password on the worksheet using the protection option but when other users either rename or copy and paste the workbook the hidden columns become unprotected. this is causing us major issues and I am looking for a solution to this

thanks
Micky

 

[jim may]

Paste this into the Thisworkbook module. Will that work for you?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then MsgBox "You are not allowed to Save this Workbook under another Name"
Cancel = SaveAsUI
End Sub

 

[mickygoalie]

thanks Jim
I'll give that a go tomorrow

 

[jim may]

Micky,

My suggestion only solves one problem - preventing your users from (like you said) "if they save the document using a different file name" -- Stil howver, they can Copy and Paste to a new Workbook and then unhide the columns. I have another macro that prevents a user from using the Copy and Paste, but it is in xl2003 (The Pre-Ribbon days). So it doesn't work in xl2007.

Good luck,

Jim